feat: add md_arts_districts

R/data.R

@@ -418,3 +418,32 @@
 #' }
 #' @source <https://www.census.gov/programs-surveys/geography/guidance/geo-areas/zctas.html>
 "md_zctas"
+
+
+#' Maryland Arts & Entertainment Districts
+#'
+#' The Maryland State Arts Council sponsors Arts & Entertainment Districts as a
+#' way to stimulate the economy and improve quality of life. This legislation
+#' enables local jurisdictions, municipalities, counties, or a combination
+#' thereof, to apply for state designations for the Arts and Entertainment
+#' Districts within their boundaries and offer tax incentives as provided by
+#' law. More information from the Maryland State Arts Council:
+#' <https://msac.org/programs/arts-entertainment-districts>
+#'
+#' @format A data frame with 29 rows and 12 variables:
+#' \describe{
+#'   \item{`name`}{District name}
+#'   \item{`desc`}{District description}
+#'   \item{`org_name`}{Organization name}
+#'   \item{`org_url`}{Organization website URL}
+#'   \item{`org_phone`}{Organization phone number}
+#'   \item{`org_address`}{Organization street address}
+#'   \item{`org_city`}{Organization city}
+#'   \item{`org_county`}{Organization county}
+#'   \item{`zipcode`}{Organization zipcode}
+#'   \item{`lon`}{Longitude}
+#'   \item{`lat`}{Latitude}
+#'   \item{`geometry`}{MULTIPOLYGON geometry with boundaries}
+#'}
+#' @source <https://geodata.md.gov/imap/rest/services/BusinessEconomy/MD_IncentiveZones/FeatureServer/2>
+"md_arts_districts"

data-raw/imap.R

@@ -1,5 +1,7 @@
-library(overedge)
+library(getdata)
+library(sfext)
 library(dplyr)
+
 state_fips <- 24
 pkg_crs <- 3857
 pkg_state_abb <- "MD"
@@ -35,8 +37,7 @@ md_streams <-
 
 # NOTE: md_streams is no longer being exported
 
-url <-
-  get_imap_url("county_boundaries_detailed")
+url <- get_imap_url("county_boundaries_detailed")
 
 md_counties_detailed <-
   read_sf_url(url = url) %>%
@@ -94,3 +95,25 @@ md_mpos <-
 md_mpos <- sf::st_transform(as_sf(dplyr::ungroup(md_mpos)), crs = 3857)
 
 usethis::use_data(md_mpos, overwrite = TRUE)
+
+url <- "https://geodata.md.gov/imap/rest/services/BusinessEconomy/MD_IncentiveZones/FeatureServer/2"
+
+md_arts_districts <- esri2sf::esri2sf(url, crs = 3857)
+
+md_arts_districts <- md_arts_districts |>
+  dplyr::select(
+    name = sitename,
+    desc = sitedesc,
+    org_name = orgname,
+    org_url = website,
+    org_phone = phonenumbe,
+    org_address = streetaddr,
+    org_city = city,
+    org_county = county,
+    zipcode = zip,
+    lon = longitude,
+    lat = latitude,
+  ) |>
+  sfext::rename_sf_col()
+
+usethis::use_data(md_arts_districts, overwrite = TRUE)