data-raw/wi_polygons.R

In pfrater/arcpullr: Pull Data from an 'ArcGIS REST' API

wis_poly <-
  maps::map("state", regions = "wisconsin",
            plot = FALSE, fill = TRUE, bg = NA) %>%
  sf::st_as_sf()
wis_counties <-
  maps::map("county", regions = "wisconsin",
            plot = FALSE, fill = TRUE, bg = NA) %>%
  sf::st_as_sf() %>%
  tidyr::separate(ID, into = c("state", "county"), sep = ",")
mke_county <-
  wi_counties %>%
  dplyr::filter(county == "milwaukee")
portage_county <-
  wi_counties %>%
  dplyr::filter(county == "portage")


usethis::use_data(wis_poly, wis_counties, mke_county, portage_county,
                  overwrite = TRUE)