use tryCatch again, to capture warnings as well

easystats · Aug 30, 2022 · 68d1a1e · 68d1a1e
1 parent 20c12de
commit 68d1a1e
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/R/data_match.R b/R/data_match.R
@@ -165,11 +165,11 @@ data_filter <- function(x, filter, ...) {
     if (is.character(condition)) {
       condition <- .str2lang(condition)
     }
-    out <- try(do.call(subset, list(x, subset = condition)), silent = TRUE)
-    if (inherits(out, "try-error")) {
-      out <- NULL
-    }
-
+    out <- tryCatch(
+      do.call(subset, list(x, subset = condition)),
+      warning = function(e) NULL,
+      error = function(e) NULL
+    )
     # any errors? Give more informative message to users
     # about possible misspelled comparisons / logical conditions
     if (is.null(out)) {