#' Is knitting
#' @export
#' @return \code{TRUE} if knitr is progress
is_knitting <- function() isTRUE(getOption('knitr.in.progress'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.