loadCode =
function(dir, env = new.env(), files = list.files(dir, pattern = "\\.[RrsSqQ]$", full.names = TRUE))
{
env$.functionFileMap = data.frame(funcName = character(), file = character())
lapply(files, function(f) {
cur = ls(env, all.names = TRUE)
source(f, env)
new = setdiff(ls(env, all.names = TRUE), cur)
env$.functionFileMap = rbind(env$.functionFileMap, data.frame(funcName = new, file = rep(f, length(new))))
})
env
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.