Nothing
asClassyList <- function(x, ...){
res <- vector("list", length(x))
xnames <- names(x)
names(x) <- NULL
for (i in seq_along(x)) res[[i]] <- x[i]
names(res) <- xnames
res
}
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.