R/silent.R

In kevinushey/Kmisc: Kevin Miscellaneous

##' Hide All Potential Output when Evaluating an Expression
##'
##' This function hides any output a function might try to write
##' to \code{stdout}, \code{stderr}, to the \R console as a message, warning,
##' and so on.
##'
##' @param expr An \R expression.
##' @export
silent <- function(expr) {
  call <- match.call()
  suppressMessages(suppressWarnings(
    capture.output(output <- eval(call$expr, envir=parent.frame(1), enclos=baseenv()))
  ))
  return(output)
}