Nothing
dir.exists <- function(path){
system(paste("test -d", path), intern=FALSE) == 0 ; ## 0 for exists!
}
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.