data-raw/locality_dict.R

In subramv/cms: Calculate Medicare Reimbursement

#DEPENDENCIES: readr, tidyr, %>%

# script that returns PFS locality dictionary for 2020
locality_dict <- readr::read_tsv('data-raw/locality_dict.txt', skip = 3, 
                                 col_names = c('Carrier Number', 'Locality',
                                               'State', 'Fee Schedule Area',
                                               'Counties', 'Filler'),
                                 col_types = readr::cols(
                                   'Carrier Number' = readr::col_character(),
                                   'Locality' = readr::col_character(),
                                   'State' = readr::col_character(),
                                   'Fee Schedule Area' = readr::col_character(),
                                   'Counties' = readr::col_character(),
                                   'Filler' = readr::col_skip())) %>%
  tidyr::drop_na(1) %>%
  dplyr::select(1:5) %>%
  tidyr::fill('State', .direction = 'down')

# fix last row issue
locality_dict <- locality_dict[-nrow(locality_dict), ]

locality_dict$`Carrier Number`[rawdat$`Carrier Number` %in% c('10102', '10202', '10302')] <- 
  c('10112', '10212', '10212', '10312')

usethis::use_data(locality_dict, overwrite = TRUE)