Nothing
listn <- function(...) {
input <- sapply(match.call(), deparse)[-1]
if (is.null(names(input))) {
names(input) <- rep("", times=length(input))
}
names(input) <- ifelse(names(input)=="", input, names(input))
listWithName <- list(...)
names(listWithName) <- names(input)
return(listWithName)
}
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.