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