Nothing
copyLSN2temp <- function() {
## Create temporary .ssn directory to work with
if(dir.exists(paste0(tempdir(),'/MiddleFork04.ssn'))) return()
file.copy(from = system.file("lsndata/MiddleFork04.ssn",package = "SSN"),
to = tempdir(), recursive = TRUE,
overwrite = FALSE, copy.mode = FALSE)
if(.Platform$OS.type == 'unix')
system(paste0('chmod -R 777 ', tempdir(),'/MiddleFork04.ssn'))
}
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.