Nothing
MSG <- list(
not_list = "Must be a list.",
valid_x = "x must be a named list or data.frame",
not_unique = "List names must be unique.",
no_names = "List must have named items.",
all_names = "All list items must be named.",
read_only = "VarBundle fields are read only.",
not_empty = "List must not be empty",
not_null = "Argument cannot be NULL",
not_atomic = "Variables must be atomic.",
only_atomic_scalar = "Only VarBundles with all atomic scalar items can be converted to data.frame",
return_null = "Returning NULL"
)
validate_x <- function(x) {
if (is.null(x)) {
stop(MSG$not_null)
}
if (sum(class(x) %in% c("list", "data.frame")) == 0) {
stop(MSG$valid_x)
}
}
validate_list <- function(ll) {
if (length(ll) == 0) {
stop(MSG$not_empty)
}
if (is.null(names(ll))) {
stop(MSG$no_names)
}
if ("" %in% names(ll)) {
stop(MSG$all_names)
}
if (sum(duplicated(names(ll))) > 0) {
stop(MSG$not_unique)
}
}
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.