data-raw/abbr2state.R

abbr2statePath <- system.file(
  "abbr2state", # Refers to subdirectory of 'inst/'
  "abbr2state.csv",
  package = "vaccineAdjust"
)

abbr2stateTbl <- read_csv(abbr2statePath)

abbr2state <- abbr2stateTbl$NAME
names(abbr2state) <- abbr2stateTbl$ABBREVIATION
covidestim/vaccineAdjust documentation built on July 1, 2022, 7:25 a.m.