# Extract neighbourhoods boundary file
library(opendatatoronto)
neighbourhoods <- list_package_resources("https://open.toronto.ca/dataset/neighbourhoods/") %>%
get_resource()
# Save resource with date extracted
saveRDS(neighbourhoods, here::here("data-raw", "neighbourhoods", "extract", glue::glue("{Sys.Date()}-neighbourhoods.rds")))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.