Patch ojo_add_counts for condition length greater than 1 if statement (…

…#172) * Patch ojo_add_counts for condition length greater than 1 if statement * Bump patch version
openjusticeok · May 30, 2024 · 23d3e1d · 23d3e1d
1 parent 3d26395
commit 23d3e1d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ojodb
 Title: Analyze Data from the Open Justice Oklahoma Database
-Version: 2.8.1
+Version: 2.8.2
 Authors@R: c(
   person(
     given = "Brancen",

diff --git a/R/ojo_crim_cases.R b/R/ojo_crim_cases.R
@@ -116,7 +116,7 @@ ojo_add_counts <- function(data, vars = NULL, ...) {
     data <- data |>
       dplyr::select(dplyr::all_of(columns), "count_as_filed", "disposition")
   } else {
-    if (vars != "all") {
+    if (all(vars != "all")) {
       selection <- c(dplyr::all_of(columns), dplyr::all_of(vars))
       data <- data |>
         dplyr::select(dplyr::all_of(selection))