update renv

openjusticeok · Aug 13, 2024 · 29c8393 · 29c8393
1 parent 20f69a0
commit 29c8393
Show file tree

Hide file tree

Showing 4 changed files with 153 additions and 112 deletions.
diff --git a/R/ojo_apply_regex.R b/R/ojo_apply_regex.R
@@ -405,7 +405,7 @@ ojo_apply_regex <- function(data,
   if(.include_cats) {
   ojo_regex_cats_tidy <- ojoregex::ojo_regex_cats |>
     dplyr::select("clean_charge_description", "category", "subcategory", "title",
-                  "statutes", "chapter", "cf_cm", "sq780_status")
+                  "statutes", "chapter", "cf_cm", "sq780_status", "violent_crimes_list")
 
   clean_data <- clean_data |>
     dplyr::left_join(ojo_regex_cats_tidy,
@@ -417,7 +417,7 @@ ojo_apply_regex <- function(data,
                   paste0(col_to_clean, "_clean"),
                   data_names,
                   "category", "subcategory", "title", "statutes", "chapter", "cf_cm",
-                  "sq780_status") # Might not be needed long term?
+                  "sq780_status", "violent_crimes_list") # Might not be needed long term?
 
   } else {
     # Clean this up, you're being lazy

diff --git a/inst/sandbox.R b/inst/sandbox.R
@@ -22,6 +22,7 @@ ds <- read_csv("~/Documents/GitHub/loft-sq781-estimate/local/cm_cf_2001_2023.csv
 tic()
 final <- ds |>
   mutate(grand = "test :D") |>
+  head(1000) |>
   ojoregex::ojo_apply_regex(col_to_clean = "count_as_filed",
                             .keep_flags = FALSE, .include_cats = TRUE)
 toc()