suprimir mensajes visualizados por "imprimir" en lugar de "mensaje" o "advertencia" en R

Question

Muchos paquetes R con los que trabajo implican funciones que dan todos sus mensajes y advertencias a través de comandos para imprimir() llamadas en lugar de comandos a mensaje() o advertencia(). Me gustaría poder silenciar estos indicadores de progreso de funciones, etc., pero el estándar supressWarnings() o supressMessages no lo hace. ¿Hay alguna manera de suprimir Imprimir?

Por ejemplo:

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

Me gustaría tener un simple suppressPrint() la función que podría envolver alrededor de una llamada a esta función que suprimir los mensajes de aviso e inútiles (pero todavía imprimir la declaración valor).

Answer 1

Bueno, esos paquetes son defectuosos para empezar. El uso de print() para cualquier cosa que no sea un efecto secundario en las implementaciones print es un grave error.

Dicho esto, simplemente puede usar capture.output() para recopilar la salida de dicho código en lugar de imprimirlo. Así que para lo anterior sería

capture.output(x <- silly_developer_function(...)) 
print(x) 

Answer 2

Otra manera hacky es reemplazar el valor predeterminado print función. Afectará algunas funciones, como la impresión del cuerpo de funciones, pero los objetos con sus propios métodos de impresión aún se devuelven como de costumbre.

print <- function(...) {} 

> silly_developer_function("a") 
[1] "a" 
> silly_developer_function(1) 
[1] 1