Nothing
enlist <-function(...) {
result <- list(...)
if((nargs() == 1) & is.character(n <- result[[1]])) {
result <- as.list(seq(n))
names(result) <- n
for(i in n)
result[[i]] <- get(i)
}
else {
junk <- sys.call()
n <- NULL
for(i in junk[-1])
n <- c(n, deparse(i))
if(!is.null(n2 <- names(result))) {
which <- n2 != ""
n[which] <- n2[which]
}
names(result) <- n
}
result
}
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.