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.