withOptions <-
function(optlist, expr) {
## See the subsection ``Deep End'' on http://www.burns-stat.com/the-options-mechanism-in-r/
oldopt <- options(optlist)
on.exit(options(oldopt))
expr <- substitute(expr)
eval.parent(expr)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.