## code to prepare `DATASET` dataset goes here
fsa_shp <- readr::read_rds("data-raw/fsa_shp.rds")
fsa_data <- fsa_shp %>%
sf::st_set_geometry(NULL) %>%
as.data.frame() %>%
tibble::as_tibble()
fsa_shp <- fsa_shp %>%
dplyr::select(
fsa
)
usethis::use_data(fsa_data, overwrite = TRUE)
usethis::use_data(fsa_shp, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.