#' Is output format one of x?
#' @param x Expected formats in a character vector.
#' @importFrom knitr opts_knit
#' @export
is_output <- function(x) {
any(opts_knit$get("rmarkdown.pandoc.to") %in% x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.