data-raw/making_appalachia_fips.R

In mkiang/narcan: Helper functions for working with multiple cause of death data

## Saves a simple dataframe of Appalachian counties. Work comes from:
## https://github.com/davemistich/election-appalachia/issues/1
appalachia_fips <- readr::read_csv(paste0("./inst/extdata/",
                                          "appal-counties-geoid.csv")) %>%
    rename(st_abbrev = state_abb,
           state = state_full,
           county_name = state_county,
           fipschar = geoid) %>%
    ungroup()

usethis::use_data(appalachia_fips,
                   overwrite = TRUE)