data_raw/create_county_fips_dictionary.R

library(data.table)
library(magrittr)
library(stringr)

dict_countyfips <- fread("data_raw/county_fips.csv", colClasses = rep("character", 5)) %>%
    .[, fips := paste0(state_fips, "-", county_fips)]


save(dict_countyfips, file = "data/dict_county_fips.RData")
GL-Li/rawcensus2010 documentation built on Jan. 19, 2024, 7:11 p.m.