Deliver a message after returning the function result

Question

Consider the following function foo

foo <- function(x) {
    print(x)
    message(\"test message\")
}

I\'d like to deliver

Answer 1

You can achieve this by creating a class for your foo function, e.g. bar, and then creating a print method for this new class.

For example:

foo <- function(x) {
  class(x) <- c("bar", class(x))
  x
}


print.bar <- function(x, message=TRUE, ...){
  class(x) <- setdiff("bar", class(x))
  NextMethod(x)
  if(message)   message("test message")

}

Now try it:

foo(5)
[1] 5
test message

With assignment:

x <- foo(5)
x
[1] 5
test message

Some other ways of interacting with the print method:

print(x, message=FALSE)
[1] 5

suppressMessages(print(x))
[1] 5