Update chap_districts

Author: elipousson

NEWS.md

@@ -13,6 +13,7 @@
 * Update `mta_bus_stops` to use current winter 2023 service data and correct issue with frequency variable where stops with frequent service had not been identified as such.
 * Update `baltimore_water` data (2023-11-08) to add an acres column and fill in the name column based on intersections with the `mapmaryland::md_water` data.
 * Update `inspire_plans` to add `program_numbers` column (2024-03-29).
+* Update `chap_districts` (2024-09-21) with addition of Sarah Ann CHAP District.
 
 ## New or modified functions
 

R/data.R

@@ -1129,9 +1129,9 @@
 #' Historic districts designated by the [Baltimore City Commission on Historical
 #' and Architectural Preservation](https://chap.baltimorecity.gov/) (CHAP) which
 #' is the local historic preservation office for Baltimore City, Maryland.
-#' Updated 2023 February 10.
+#' Updated 2024-09-21.
 #'
-#' @format A data frame with 39 rows and 7 variables:
+#' @format A data frame with 40 rows and 7 variables:
 #' \describe{
 #'   \item{`name`}{Historic district name}
 #'   \item{`contact_name`}{CHAP Staff contact name}

data-raw/data.R

@@ -1487,6 +1487,22 @@ buildings_21stc <- buildings_21stc |>
 usethis::use_data(buildings_21stc, overwrite = TRUE)
 
 
+middle_branch <- bind_rows(
+  get_baltimore_area(
+    "neighborhood",
+    location = getdata::get_location(adopted_plans, "South Baltimore Gateway Master Plan", name_col = "plan_name")
+  ),
+  get_baltimore_area(
+    "neighborhood",
+    c("Brooklyn", "Curtis Bay", "Locust Point")
+  )
+) |>
+  sfext::st_union_ext() |>
+  mutate(
+    plan_name = "Reimagine Middle Branch",
+    plan_area_label = "Reimagine Middle Branch Study Area"
+  )
+
 adopted_plans_path <-
   # FIXME: The original link for this data no longer works but the new data is missing key information
   # "https://geodata.baltimorecity.gov/egis/rest/services/Planning/Boundaries_and_Plans/MapServer/72"
@@ -2101,12 +2117,15 @@ chap_district_info <- tibble::tribble(
   "Washington Hill", "http://chap.baltimorecity.gov/washington-hill", FALSE, TRUE,
   "Waverly", "http://chap.baltimorecity.gov/waverly", FALSE, FALSE,
   "Woodberry", "http://chap.baltimorecity.gov/woodberry", FALSE, TRUE,
-  "Wyndhurst", "http://chap.baltimorecity.gov/wyndhurst", FALSE, FALSE
+  "Wyndhurst", "http://chap.baltimorecity.gov/wyndhurst", FALSE, FALSE,
+  "Sarah Ann Street", "https://chap.baltimorecity.gov/sarah-ann-street", FALSE, FALSE
 )
 
 
 chap_districts <- chap_districts_geodata |>
-  dplyr::filter(stringr::str_detect(cha_pcode_ty, "^A")) |>
+  janitor::remove_empty("cols") |>
+  select(!url) |>
+  dplyr::filter(stringr::str_detect(cha_pcode, "^A")) |>
   sfext::rename_sf_col() |>
   dplyr::rename(name = area_name) |>
   dplyr::mutate(
@@ -2115,10 +2134,11 @@ chap_districts <- chap_districts_geodata |>
       name == "Eutaw Place/Madison Place" ~ "Eutaw Place/Madison Park",
       name == "Mt. Royal Terrace" ~ "Mount Royal Terrace",
       name == "Wilkens Avenue" ~ "Mill Hill/Deck of Cards",
+      name == "Sarah Ann" ~ "Sarah Ann Street",
       .default = name
     )
   ) |>
-  dplyr::left_join(chap_district_info, by = "name") |>
+  dplyr::left_join(chap_district_info, by = dplyr::all_of("name")) |>
   dplyr::mutate(
     acres = as.numeric(units::set_units(sf::st_area(geometry), "acres"))
   ) |>