Nothing
# a JavaScript-like eval function
eval.js <- function(expr, envir=parent.frame(), enclos=if(is.list(envir)||is.pairlist(envir)) parent.frame())
{
if (typeof(expr) != "character")
return(expr)
expr <- parse(text=expr)
eval(expr, envir, enclos)
}
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.