Nothing
check.exclude <- function(exclude,nvars){
exclude <- unique(exclude)
if(length(exclude)> (nvars-2))stop("cannot retain 1 or less variables")
if(length(exclude)==0)exclude <- NULL
exclude
}
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.