Nothing
###-----------------------------------------------------------------------------
###
### generate a list of function arguments for the calling function
###
.call.list <- function (x = NULL) {
if (is.null (x))
x <- sys.call (-1)
if (length (x) < 3L)
I (list ())
else {
x <- as.list (x [- (1 : 2)])
I (x)
}
}
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.