Nothing
ls.funs <- function (...)
{
mycall <- match.call()
mycall[[1]] <- as.name("ls")
nameList <- eval.parent(mycall)
if(length(nameList)>0)
{
funcFlags <- sapply( nameList, function(x) is.function(get(x)) )
return(nameList[funcFlags])
}
else
return( list() )
}
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.