refreshing datasets

openjusticeok · Jun 21, 2024 · bb87555 · bb87555
1 parent e30dba1
commit bb87555
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/data/ojo_regex_flags.rda b/data/ojo_regex_flags.rda
diff --git a/inst/sandbox.R b/inst/sandbox.R
@@ -32,21 +32,31 @@ cli::cli_alert_success(
 )
 beepr::beep()
 
+# CDS (Other / Unspecified) refinement for LOFT stuff --------------------------
 final |>
   filter(
     count_as_filed_clean == "CDS (Other / Unspecified)",
     !str_detect(count_as_filed, ojo_get_flag_regex(flag = "manufacture")), # no "Manufacturing"
     !str_detect(count_as_filed, ojo_get_flag_regex(flag = "intoxication")), # no DWI or public intox
     !str_detect(count_as_filed, ojo_get_flag_regex(flag = "under_the_influence")),
     !str_detect(count_as_filed, ojo_get_flag_regex(flag = "forge")), # no "obtain by fraud"
-    !str_detect(count_as_filed, "(?i)telecom"), # No "use of telecom device in cds transaction"
+    !str_detect(count_as_filed, "(?i)telecom|wire"), # No "use of telecom device in cds transaction"
     !str_detect(count_as_filed, "(?i)cult"), # no "cultivation of cds"
     !str_detect(count_as_filed, ojo_get_flag_regex(flag = "deliver")), # no "delivery of cds"
+    !str_detect(count_as_filed, ojo_get_flag_regex(flag = "distribution")), # no "distribution of cds"
+    !str_detect(count_as_filed, ojo_get_flag_regex(flag = "phone")), # no "cellular phone"
+    !str_detect(count_as_filed, ojo_get_flag_regex(flag = "dui_or_apc")),
+    !str_detect(count_as_filed, ojo_get_flag_regex(flag = "child")),
     !str_detect(count_as_filed, "(?i)traff") # no "trafficking"
   ) |>
-  distinct(count_as_filed) |>
+  count(count_as_filed, sort = T) |>
   view()
 
+# Larceny (Other / Unspecified) refinement for LOFT stuff ----------------------
+
+
+# Fraud (Other / Unspecified) refinement for LOFT stuff ------------------------
+
 
 # # Classifications rundown
 # final |>