Nothing
"typeToPrototype" <-
function (type, prototype, classes)
{
x <- match(type, classes[, 1])
if (is.null(x) || all(is.na(x)))
x <- match(type, classes[, 2])
if (!is.null(x) && !all(is.na(x)))
prototype <- paste(classes[, 2][x])
return(prototype)
}
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.