Nothing
.check_control_parameters <- function( control ){
stopifnot(is.list(control))
## Default paramenters (currently only verbosity supported)
out <- list(verbose = FALSE,
canonicalize_status = TRUE)
out[names(control)] <- control
if (!is.null(out$verbose)) {
out$verbose <- as.integer(out$verbose)
if (!out$verbose %in% c(0L, 1L)) {
warning("Improper value for 'verbose' parameter. Using default.")
out$verbose <- 0L
}
}
if (!is.null(out$canonicalize_status)) {
out$canonicalize_status <- as.logical(out$canonicalize_status)
}
out
}
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.