Enhance search_included for print.vselsummary().

fweber144 · Apr 3, 2023 · 126249b · 126249b
1 parent 9744266
commit 126249b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/methods.R b/R/methods.R
@@ -857,7 +857,7 @@ summary.vsel <- function(
   if (isTRUE(out$validate_search)) {
     out$search_included <- "search included (i.e., fold-wise searches)"
   } else {
-    out$search_included <- "search not included (i.e., a full-data search)"
+    out$search_included <- "search not included (i.e., a full-data search only)"
   }
   class(out) <- "vselsummary"
 

diff --git a/tests/testthat/helpers/testers.R b/tests/testthat/helpers/testers.R
@@ -2362,7 +2362,7 @@ smmry_tester <- function(smmry, vsel_expected, nterms_max_expected = NULL,
   expect_true(
     smmry$search_included %in% c(
       "search included (i.e., fold-wise searches)",
-      "search not included (i.e., a full-data search)"
+      "search not included (i.e., a full-data search only)"
     ),
     info = info_str
   )