# Capture plots without plotting
dont_plot <- function(x, ...) {
tmp <- tempfile()
grDevices::png(tmp)
p <- graphics::plot(x, ...)
grDevices::dev.off()
unlink(tmp)
invisible(p)
}
# Suppress printning
dont_print <- function(x, ...) {
utils::capture.output(y <- print(x, ...))
invisible(y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.