update prop enf

Author: erikarasnick

inst/codec_data/property_code_enforcements/property_code_enforcements.R

@@ -7,45 +7,59 @@ message("Using CoDEC, version ", packageVersion("codec"))
 library(dplyr)
 library(dpkg)
 library(addr)
+library(sf)
 options(arrow.unsafe_metadata = TRUE)
 
-cagis_addr_data <- 
-  addr::cagis_addr |>
+addr_per_tract <- 
+  addr::cagis_addr() |>
   mutate(cagis_s2 = purrr::map(cagis_addr_data, \(d) pull(d, cagis_s2))) |>
   select(-cagis_addr_data) |>
   tidyr::unnest(cols = c(cagis_s2)) |>
   filter(!is.na(cagis_s2)) |>
   distinct(cagis_addr, .keep_all = TRUE) |>
   mutate(census_tract_id_2010 = tract::get_census_tract_id(cagis_s2, year = "2010")) |>
-  distinct(cagis_addr, .keep_all = TRUE) 
-
-addr_per_tract <-
-  cagis_addr_data |>
+  distinct(cagis_addr, .keep_all = TRUE) |>
   group_by(census_tract_id_2010) |>
   summarize(n_addr = n())
 
 # read in parcel data resource
 property_code_enforcements <-
-  dpkg::stow("gh://geomarker-io/parcel/property_code_enforcements-v1.0.1") |>
+  dpkg::stow("gh://geomarker-io/parcel/property_code_enforcements-v1.1.1") |>
   dpkg::read_dpkg() |>
+  filter(!is.na(lon_jittered), !is.na(lat_jittered)) |>
+  st_as_sf(coords = c("lon_jittered", "lat_jittered"), crs = 4326) |>
+  st_transform(st_crs(cincy::tract_tigris_2010)) |>
+  st_join(cincy::tract_tigris_2010, largest = TRUE) |>
+  st_drop_geometry() |>
   mutate(
       year = lubridate::year(date), 
       month = lubridate::month(date)
   ) |>
-  left_join(cagis_addr_data, by = "cagis_addr") |>
   group_by(census_tract_id_2010, year, month) |>
   summarize(n_violations = n()) |>
   filter(!is.na(census_tract_id_2010)) |>
   left_join(addr_per_tract, by = "census_tract_id_2010") |>
   mutate(violations_per_addr = n_violations/n_addr)
 
+min_year_month <- 
+  property_code_enforcements |>
+  ungroup() |>
+  arrange(year, month) |>
+  slice(1)
+
+max_year_month <- 
+  property_code_enforcements |>
+  ungroup() |>
+  arrange(desc(year), desc(month)) |>
+  slice(1)
+
 all_tracts <- 
   cincy::tract_tigris_2010 |>
   sf::st_drop_geometry() |>
   as_tibble() |>
   mutate(date = list(seq.Date(
-    from = as.Date("2001-04-01"), 
-    to = as.Date("2024-07-01"), 
+    from = as.Date(glue::glue("{min_year_month$year}-{min_year_month$month}-01")), 
+    to = as.Date(glue::glue("{max_year_month$year}-{max_year_month$month}-01")), 
     by = "month"
   ))) |>
   tidyr::unnest(cols = c(date)) |>
@@ -62,7 +76,7 @@ out_dpkg <-
     by = c("census_tract_id_2010", "year", "month")) |>
   as_codec_dpkg(
     name = "property_code_enforcements",
-    version = "0.1.0",
+    version = "0.2.0",
     title = "Property Code Enforcements",
     homepage = "https://geomarker.io/codec",
     description = paste(readLines(fs::path_package("codec", "codec_data", "property_code_enforcements", "README.md")), collapse = "\n")