From 7fab8b917d2c9a4441b4ca4be553d8f58caa3c48 Mon Sep 17 00:00:00 2001
From: andrewjbe <56839927+andrewjbe@users.noreply.github.com>
Date: Mon, 17 Jun 2024 16:09:51 -0500
Subject: [PATCH] update sandbox

---
 inst/sandbox.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/inst/sandbox.R b/inst/sandbox.R
index 67f02ee..a5d25f9 100644
--- a/inst/sandbox.R
+++ b/inst/sandbox.R
@@ -51,7 +51,7 @@ explore <- final |>
 remaining_nas <- final |>
   filter(is.na(count_as_filed_clean),
          !is.na(count_as_filed)) |>
-  select(-c(id, district, case_number, case_type, date_filed, date_closed, counts, open_counts, disposition,
+  select(-c(id, district, case_number, case_type, date_filed, date_closed, open_counts, disposition,
             count_as_filed_clean)) |>
   group_by(count_as_filed) |>
   mutate(n = n()) |>
@@ -66,7 +66,7 @@ remaining_nas |>
 #
 
 final |>
-  filter(str_detect(count_as_filed_clean, "Obstruction")) |>
+  # filter(str_detect(count_as_filed_clean, "Obstruction")) |>
   # distinct(count_as_filed, .keep_all = TRUE) |>
   count(count_as_filed, count_as_filed_clean, sort = T) |> view()