pulse_of_the_nation <- read_csv("data-raw/pulse_of_the_nation/pulse_of_the_nation.csv") %>%
mutate_if(is.character, as.factor)
# Save the final data
usethis::use_data(pulse_of_the_nation, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.