better print in case of no matches

easystats · Sep 12, 2023 · ae678ef · ae678ef
1 parent 8c001be
commit ae678ef
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 1 deletion.
diff --git a/R/data_seek.R b/R/data_seek.R
@@ -160,5 +160,9 @@ data_seek <- function(data, pattern, seek = c("names", "labels"), fuzzy = FALSE)
 
 #' @export
 print.data_seek <- function(x, ...) {
-  cat(insight::export_table(x, ...))
+  if (nrow(x) == 0) {
+    cat("No matches found.\n")
+  } else {
+    cat(insight::export_table(x, ...))
+  }
 }
diff --git a/tests/testthat/_snaps/data_seek.md b/tests/testthat/_snaps/data_seek.md
@@ -8,3 +8,10 @@
           1 | Sepal.Length | Sepal.Length
           3 | Petal.Length | Petal.Length
 
+---
+
+    Code
+      data_seek(iris, "abc")
+    Output
+      No matches found.
+
diff --git a/tests/testthat/test-data_seek.R b/tests/testthat/test-data_seek.R
@@ -78,4 +78,5 @@ test_that("data_seek - valid input", {
 
 test_that("data_seek - print", {
   expect_snapshot(data_seek(iris, "Length"))
+  expect_snapshot(data_seek(iris, "abc"))
 })