Nothing
validNames <- function(names_to_test, all_names) {
inAll <- names_to_test %in% all_names
if (!all(inAll)) {
stop("Variable names(s) '", paste(names_to_test[!inAll], collapse = "', '"),
"' not found in the data.")
}
}
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.