подавляет сообщения, отображаемые с помощью «print» вместо «message» или «warning» в R

Многие пакеты R, с которыми я работаю, включают функции, которые передают все свои сообщения и предупреждения через команды для вызовов print (), а не через команды для message () или warning (). Я хотел бы иметь возможность отключить индикаторы выполнения этих функций и т. Д., Но стандартные supressWarnings () или supressMessages этого не делают. Есть ли способ просто подавить печать?

Например:

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

Я хотел бы иметь простую функцию suppressPrint (), которую я мог бы обернуть вокруг вызова этой функции, которая подавляла бы предупреждения и бесполезные сообщения (но по-прежнему печатать возвращаемое значение).