data-raw/sba-puma-xwalk.R

library(tidyverse)
rm(list = ls())

sba.puma.xwalk <- list.files('~/R/local-data/'
           ,pattern = 'SBA-PUMA Crosswalk.csv'
           ,full.names = T) %>%
  vroom::vroom()


# write
usethis::use_data(sba.puma.xwalk
                  , overwrite = TRUE)
kmcd39/nycaux documentation built on March 2, 2022, 12:16 a.m.