with_dir <- function(path, code) {
owd <- setwd(path)
on.exit(setwd(owd))
force(code)
}
stegasaur_file <- function(path) {
system.file(path, package = "stegasaur", mustWork = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.