rm(list = ls())
devtools::load_all()
list.files("data-raw", "rda$", full.names = TRUE) %>%
lapply(load, globalenv())
ls() %>%
{paste0(
"usethis::use_data(",
paste(., collapse = ", "),
")"
)} %>%
parse(text = .) %>%
eval(.)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.