Nothing
work.dir <-
function(dir.name){
WorkinDir=paste(getwd(),"/", dir.name, "/",sep="")
dir.create(WorkinDir)
file = list.files()
file.copy(file, WorkinDir)
setwd(WorkinDir)
unlink("muma.R")
}
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.