suprimir as mensagens exibidas por "print" em vez de "message" ou "warning" em R

s pacotes @Many R com os quais trabalho envolvem funções que fornecem todas as suas mensagens e avisos através de comandos para imprimir chamadas () em vez de comandos para mensagem () ou aviso (). Gostaria de poder silenciar essas funções, indicadores de progresso, etc., mas o padrão supressWarnings () ou supressMessages não faz isso. Existe uma maneira de suprimirPrint?

Por exemplo

silly_developer_function <- function(x){
   print("Thanks for using my function!!")
   if(is(x, "numeric"))
     print("warning, x should be a character")
   x
}

Gostaria de ter uma função simples suppressPrint () que pudesse envolver uma chamada para essa função que suprimisse o aviso e as mensagens inúteis (mas ainda imprimisse o valor de retorno