In fact, you have two suppression functions through R that work differently for you:
suppressMessages() , " ". . ?suppressMessages.
suppressWarnings() , . . ?suppressWarnings.
:
f <- function(a) { a ; warning("This is a warning") ; message("This is a message not a warning")}
> f(1)
This is a message not a warning
Warning message:
In f(1) : This is a warning
> suppressWarnings(f(1))
This is a message not a warning
> suppressMessages(f(1))
Warning message:
In f(1) : This is a warning