Nothing
library(reshape2)
library(plyr)
FILE <- (function() {
attr(body(sys.function()), "srcfile")
})()$filename
PATH <- dirname(FILE)
lapply(dir(file.path(PATH, "R"), full.name=T), source)
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.