##' Run SS function
##' @param file file name to load
##' @author Jason Cope
##' @export
loadnnames <- function (file, ...)
{
ls.ext <- function(file) {
local({
base::load(file)
base::ls()
})
}
base::load(file, .GlobalEnv, ...)
ls.ext(file)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.