tag <- function(type, expr, comment = NULL) {
stopifnot(type %in% c("result", "data"))
cachedir <- cache()
eval(substitute(expr), parent.frame())
setConfig("expr.tag", type)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.