library(dplyr)
temp <- read.csv("data-raw/legacy.csv")
fp2020 <- temp %>% filter(FP2020.country == "Yes") %>% select(division_numeric_code)
usethis::use_data(fp2020, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.