remove temp code

openjusticeok · Jun 18, 2024 · 173d831 · 173d831
1 parent 033714a
commit 173d831
Showing 1 changed file with 11 additions and 11 deletions.
diff --git a/R/ojo_apply_regex.R b/R/ojo_apply_regex.R
@@ -36,17 +36,17 @@ ojo_apply_regex <- function(data,
 
   # Uncomment this for dev / debugging -----------------------------------------
   # Regex list
-  googlesheets4::gs4_auth(email = "[email protected]")
-  ojo_regex_flags <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1LyaUXb21OuBj5Cb0CewJ1lVMsVsExn6yOcfyDT5sqL0/edit?usp=sharing",
-                                               sheet = "Regex Flag List")
-  ojo_regex_cats <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1LyaUXb21OuBj5Cb0CewJ1lVMsVsExn6yOcfyDT5sqL0/edit?usp=sharing",
-                                              sheet = "Clean Categories List",
-                                              col_types = "lcccccccccccccl") |>
-    dplyr::filter(in_ojoregex == TRUE)
-
-  # Save the regex data to the package data
-  save(ojo_regex_flags, file = here::here("data", "ojo_regex_flags.rda"))
-  save(ojo_regex_cats, file = here::here("data", "ojo_regex_cats.rda"))
+  # googlesheets4::gs4_auth(email = "[email protected]")
+  # ojo_regex_flags <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1LyaUXb21OuBj5Cb0CewJ1lVMsVsExn6yOcfyDT5sqL0/edit?usp=sharing",
+  #                                              sheet = "Regex Flag List")
+  # ojo_regex_cats <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1LyaUXb21OuBj5Cb0CewJ1lVMsVsExn6yOcfyDT5sqL0/edit?usp=sharing",
+  #                                             sheet = "Clean Categories List",
+  #                                             col_types = "lcccccccccccccl") |>
+  #   dplyr::filter(in_ojoregex == TRUE)
+  #
+  # # Save the regex data to the package data
+  # save(ojo_regex_flags, file = here::here("data", "ojo_regex_flags.rda"))
+  # save(ojo_regex_cats, file = here::here("data", "ojo_regex_cats.rda"))
 
   # Load the regex data
   regex <- ojoregex::ojo_regex_flags