data-raw/zipcodes.R

zipcodes = USAboundaries::us_zipcodes()  |>
  sf::st_transform(4269) |>
  dplyr::select(zipcode) %>%
  dplyr::mutate(lat = sf::st_coordinates(.)[,2],
                lon = sf::st_coordinates(.)[,1]) |>
  sf::st_drop_geometry()

usethis::use_data(zipcodes, overwrite = TRUE)
mikejohnson51/AOI documentation built on Nov. 22, 2023, 6:05 p.m.