#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.