fixed gang related offense

openjusticeok · Jun 17, 2024 · 1942021 · 1942021
1 parent 30ac8e1
commit 1942021
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 6 deletions.
diff --git a/R/ojo_apply_regex.R b/R/ojo_apply_regex.R
@@ -332,6 +332,9 @@ ojo_apply_regex <- function(data,
         # Emergency phone call -------------------------------------------------
         emergency & (phone | call) ~ "Interfering With Emergency Call",
 
+        # Gang related offense -------------------------------------------------
+        gang ~ "Gang Related Offense",
+
         # =====================================================================================================================
         # Traffic / Motor Vehicles ============================================================================================
         # Basic Traffic Stuff --------------------------------------------------

diff --git a/data/ojo_regex_cats.rda b/data/ojo_regex_cats.rda
diff --git a/data/ojo_regex_flags.rda b/data/ojo_regex_flags.rda
diff --git a/inst/sandbox.R b/inst/sandbox.R
@@ -3,19 +3,20 @@ library(ojodb)
 library(tidyverse)
 library(tictoc)
 
-ds <- ojo_crim_cases(
-  districts = "all",
-  case_types = c("CF", "CM"),
-  file_years = 2022:2022,
-) |>
-  ojo_collect()
+# ds <- ojo_crim_cases(
+#   districts = "all",
+#   case_types = c("CF", "CM"),
+#   file_years = 2022:2022,
+# ) |>
+#   ojo_collect()
 
 # write_rds(ds, "./data/test-data-all.rds")
 #
 # beepr::beep()
 
 # ds <- read_rds("./data/test-data-tr-all.rds")
 # ds <- read_rds("./data/test-data-all.rds")
+ds <- read_csv("~/Documents/GitHub/loft-sq781-estimate/local/cm_cf_2001_2023.csv")
 
 # Using new regex --------------------------------------------------------------
 tic()