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