Nothing
check.class <-
function(var, class){
varname <- deparse(substitute(var))
if(!inherits(var, class)) stop(varname, " must be of class ", class)
}
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.