Nothing
loadDataSet <- function(dataSet) {
dataSet <- match.arg(dataSet, listDataSets())
path <- system.file("extdata", package="acnr")
filename <- sprintf("%s.rds", dataSet)
pathname <- file.path(path, filename)
dat <- readRDS(pathname)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.