## code to prepare `BTX_TD_POP1B` dataset goes here
BTX_TD_POP1B <- readRDS("inst/extdata/BTX_TD_POP1B.rds")
usethis::use_data(BTX_TD_POP1B, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.