Nothing
get_dm <- function(name) {
if (name == "nycflights13") {
return(dm::dm_nycflights13())
}
basename <- paste0(name, ".R")
path <- system.file("relational", basename, package = utils::packageName(), mustWork = TRUE)
source(path, local = TRUE)$value
}
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.