Nothing
check_vector_values_nulls <- function(vector, values, column_name, data_name) {
nulls <- vapply(values, is.null, logical(1))
if (all(nulls)) {
if (!is.null(vector))
error(data_name, " must not include column ", column_name)
return(TRUE)
}
if (any(nulls) && is.null(vector))
return(TRUE)
values[!nulls]
}
check_vector_values_class <- function(vector, values, column_name, data_name) {
if(is.null(vector))
error(data_name, " must have column '", column_name, "'")
classes <- get_classes(values)
if (!inherits(vector, classes)) {
error("column ", column_name, " in ", data_name, " must be of class ",
punctuate(classes))
}
values[[1]]
}
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.