Nothing
savingRes <-
function(filename) {
initdir <- get("initdir", envir = .GlobalEnv )
fileRwd <- paste(initdir,"/",filename,".Rdata",sep="")
filecsv <- paste(initdir,"/",filename,".csv",sep="")
filehtm <- paste(initdir,"/",filename,".html",sep="")
return(c(fileRwd ,filecsv, filehtm ))
}
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.