R/shhh.R

In tfse: Tools for Script Editing

#' execute expression quietly
#'
#' @param expr Expression to be evaluated without additional printing.
#' @return Output from evaluated expression.
#' @export
shhh <- function(expr) {
  sh <- utils::capture.output(x <- suppressPackageStartupMessages(
    suppressMessages(suppressWarnings(expr))))
  invisible(x)
}