Nothing
get_var_from_vars <- function(varnames, var) {
var_default <- varnames[!varnames %in% DIM_NAMES]
if (toupper(var) %in% toupper(var_default)) {
var <- var_default[which(toupper(var) == toupper(var_default))]
} else {
warning("Variable '", var, "' not found. ",
"Variable '", var_default[1], "' will be used instead.")
var <- var_default[1]
}
return(var)
}
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.