Nothing
`saveDir` <-
function() {
Dir <- tclvalue(tkchooseDirectory(title="Please specify the folder"))
assign("DirName",Dir ,envir=.GlobalEnv)
tclvalue(SaveDirName ) <<- Dir
if (!nchar(Dir ))
tkmessageBox(message="No folder was selected!")
}
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.