data-raw/api-data.R

In olihawkins/clbenefits: Download and Process a Range of Benefits Data

### Script for generating data files containing queries and links for APIs

read_file_trim <- function(filename) {
    stringr::str_trim(readr::read_file(filename))
}

SX_ESA_1_DATES_QUERY <- read_file_trim("sx-esa-1-dates.json")
SX_ESA_1_1_QUERY <- read_file_trim("sx-esa-1-1.json")
SX_ESA_1_2_QUERY <- read_file_trim("sx-esa-1-2.json")

SX_ESA_2_DATES_QUERY <- read_file_trim("sx-esa-2-dates.json")
SX_ESA_2_QUERY <- read_file_trim("sx-esa-2.json")

SX_HB_1_DATES_QUERY <- read_file_trim("sx-hb-1-dates.json")
SX_HB_1_1_QUERY <- read_file_trim("sx-hb-1-1.json")
SX_HB_1_2_QUERY <- read_file_trim("sx-hb-1-2.json")

SX_HB_2_DATES_QUERY <- read_file_trim("sx-hb-2-dates.json")
SX_HB_2_QUERY <- read_file_trim("sx-hb-2.json")

SX_UCP_DATES_QUERY <- read_file_trim("sx-ucp-dates.json")
SX_UCP_QUERY <- read_file_trim("sx-ucp.json")

SX_UCH_DATES_QUERY <- read_file_trim("sx-uch-dates.json")
SX_UCH_QUERY <- read_file_trim("sx-uch.json")

SX_IS_DATES_QUERY <- read_file_trim("sx-is-dates.json")
SX_IS_QUERY <- read_file_trim("sx-is.json")

SX_JSA_DATES_QUERY <- read_file_trim("sx-jsa-dates.json")
SX_JSA_QUERY <- read_file_trim("sx-jsa.json")

GEOGRAPHY_GID_LOOKUP <- readr::read_csv(
    "geography-gid-lookup.csv",
    col_types = readr::cols(
        geography = readr::col_character(),
        gid = readr::col_character()))

GID_GEOGRAPHY_LOOKUP <- readr::read_csv(
    "geography-gid-lookup.csv",
    col_types = readr::cols(
        gid = readr::col_character(),
        geography = readr::col_character()))

CON_REGION_LOOKUP <- readr::read_csv(
    "con-region-lookup.csv",
    col_types = readr::cols(
        gid = readr::col_character(),
        region_id = readr::col_character(),
        region_name = readr::col_character()))

usethis::use_data(
    SX_ESA_1_DATES_QUERY,
    SX_ESA_1_1_QUERY,
    SX_ESA_1_2_QUERY,
    SX_ESA_2_DATES_QUERY,
    SX_ESA_2_QUERY,
    SX_HB_1_DATES_QUERY,
    SX_HB_1_1_QUERY,
    SX_HB_1_2_QUERY,
    SX_HB_2_DATES_QUERY,
    SX_HB_2_QUERY,
    SX_UCP_DATES_QUERY,
    SX_UCP_QUERY,
    SX_UCH_DATES_QUERY,
    SX_UCH_QUERY,
    SX_IS_DATES_QUERY,
    SX_IS_QUERY,
    SX_JSA_DATES_QUERY,
    SX_JSA_QUERY,
    GID_GEOGRAPHY_LOOKUP,
    GEOGRAPHY_GID_LOOKUP,
    CON_REGION_LOOKUP,
    internal = TRUE,
    overwrite = TRUE)