Nothing
check_format <- function(format) {
if (is.null(format)) {
stop("format must not be NULL")
}
allowed_formats <- c("nc", "csv")
if (!format %in% allowed_formats) {
stop(paste0("format must be either nc or csv, but was ", format))
}
}
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.