Nothing
track.dir <- function(pos=1, envir=as.environment(pos), data=FALSE) {
trackingEnv <- getTrackingEnv(envir)
## fileMap <- getFileMapObj(trackingEnv)
## unsaved <- getUnsavedObj(trackingEnv)
dir <- getTrackingDir(trackingEnv)
if (data)
dir <- getDataDir(dir)
return(dir)
}
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.