data-raw/DATASET.R

In CAopenwater/sdwisard: R wrapper for accessing a pretend API for SDWIS

# data.frame of colnames = c(psid, water_system_name, county, zipcode)
# water_systems <- tibble(psid = c("103039", "103040"),
#                         water_system_name = c("A","B"),
#                         county = c("D","E"),
#                         zipcode = c(90201, 94601))
water_systems <- readr::read_rds("data-raw/water_systems.rds")
usethis::use_data(water_systems, overwrite = TRUE)

# data.frame of colnames = c(storet, analytes)
# analytes <- tibble(storet  = c("00081", "00086"),
#                    analyte = c("COLOR", "ODOR THRESHOLD @ 60 C"))
analytes <- readr::read_rds("data-raw/analytes.rds")
usethis::use_data(analytes, overwrite = TRUE)

#files <- list.files("data-raw", pattern = ".csv", full.names = TRUE)
#psids <- str_remove_all(files, ".csv") %>% basename()


# internal of colnames = c(psid, storet, analyte)
# psid_analyte <- purrr::map2_df(
#   files, psids, ~ read_csv(.x) %>%
#   distinct(STORE_NUM, CHEMICAL) %>%
#   mutate(psid = .y)
#   ) %>%
#   select(psid, storet = STORE_NUM, analyte = CHEMICAL)
psid_analyte <- readr::read_rds("data-raw/psid_analyte.rds")
usethis::use_data(psid_analyte, overwrite = TRUE)