Nothing
test_regional_dataset <- function(source, level, download = FALSE) {
region <- eval(parse(
text = paste0(
source, "$new(level = '", level,
"', verbose = FALSE)"
)
))
snapshot_dir <- "custom_data"
region$test(
download = download,
snapshot_dir = snapshot_dir,
all = TRUE
)
}
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.