save-data.R

In bjornkallerud/dataOPS: Common Operations for Military Data

# paygrade data
df_rank_pg <- readxl::read_xlsx("data-raw/paygrades.xlsx")

# bah data
bah_data <- read.csv("bah-data/bah.csv") %>% 
  select(MHA, pg, dep, year, bah_rate = value)
usethis::use_data(df_rank_pg, bah_data, overwrite = T, internal = T)