Nothing
list.files.nodir <-
function(path = ".",pattern = NULL)
{
tempx <- list.files(path,pattern)
try(tempx <- tempx[!file.info(tempx)$isdir])
return(tempx)
}
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.