data-raw/DATASET.R

In luceydav/irsSOI: Tools to load and explore IRS SOI Zip Data

## code to prepare `DATASET` dataset goes here

# Dictionary
data_dict <- lapply(2005:2020, get_dict)
names(data_dict) <- as.character(2005:2020)
data_dict <- data_dict[sapply(data_dict, is.null) == FALSE]
data_dict <- rbindlist(data_dict, use.names = TRUE, fill = TRUE, idcol = "year")
data_dict[, `:=`(
  name = re2::re2_replace_all(names, ":", ""),
  desc = sapply(row_lists, `[[`, 1),
  names = NULL,
  row_lists = NULL
)]
data_dict[, desc := stringr::str_replace_all(desc, "^1.  ", "")]

usethis::use_data(data_dict, overwrite = TRUE)

# Zipcodes
zipcodes <- zipcodeR::zip_code_db
setDT(zipcodes)
zipcodes <- zipcodes[zipcode_type == "Standard"]
keeps <-
  c(
    "zipcode",
    "county",
    "major_city",
    "land_area_in_sqmi",
    "lat",
    "lng"
  )
zipcodes <- zipcodes[, keeps, with = FALSE]
usethis::use_data(zipcodes, overwrite = TRUE)

# Data
irs_app_data <-
  duckdb_load_prepare_soi(state = "CT", path = "~/Documents/Data/irs_zip_soi")