From dbf492ff999bba7b558fd0b35e7f9b55d0270538 Mon Sep 17 00:00:00 2001
From: fweber144 <fweber144@protonmail.com>
Date: Tue, 19 Apr 2022 23:16:01 +0200
Subject: [PATCH 1/2] Work around issue #239 in the tests.

---
 tests/testthat/setup.R | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
index f8ce4cf7f..aa22147ff 100644
--- a/tests/testthat/setup.R
+++ b/tests/testthat/setup.R
@@ -786,11 +786,21 @@ if (run_cvvs) {
   # diagnostics. Additionally to suppressWarnings(), suppressMessages() could be
   # used here (because of the refits in K-fold CV):
   cvvss <- suppressWarnings(lapply(args_cvvs, function(args_cvvs_i) {
-    do.call(cv_varsel, c(
+    cvvs_expr <- expression(do.call(cv_varsel, c(
       list(object = refmods[[args_cvvs_i$tstsetup_ref]]),
       excl_nonargs(args_cvvs_i)
-    ))
+    )))
+    if (args_cvvs_i$mod_nm == "gamm" &&
+        !identical(args_cvvs_i$cv_method, "kfold")) {
+      # Due to issue #239, we have to wrap the call to cv_varsel() in try():
+      return(try(eval(cvvs_expr), silent = TRUE))
+    } else {
+      return(eval(cvvs_expr))
+    }
   }))
+  success_cvvs <- !sapply(cvvss, inherits, "try-error")
+  cvvss <- cvvss[success_cvvs]
+  args_cvvs <- args_cvvs[success_cvvs]
 }
 
 ## Projection -------------------------------------------------------------

From 4c2fb3caab0938e32f169c81b95e1328e339d26a Mon Sep 17 00:00:00 2001
From: fweber144 <fweber144@protonmail.com>
Date: Wed, 20 Apr 2022 08:19:32 +0200
Subject: [PATCH 2/2] Check the error message in detail.

---
 tests/testthat/setup.R | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
index aa22147ff..c14c61b0a 100644
--- a/tests/testthat/setup.R
+++ b/tests/testthat/setup.R
@@ -799,6 +799,15 @@ if (run_cvvs) {
     }
   }))
   success_cvvs <- !sapply(cvvss, inherits, "try-error")
+  err_ok <- sapply(cvvss[!success_cvvs], function(cvvs_err) {
+    attr(cvvs_err, "condition")$message ==
+      "Not enough (non-NA) data to do anything meaningful"
+  })
+  expect_true(
+    all(err_ok),
+    info = paste("Unexpected error for",
+                 paste(names(cvvss[!success_cvvs])[!err_ok], collapse = ", "))
+  )
   cvvss <- cvvss[success_cvvs]
   args_cvvs <- args_cvvs[success_cvvs]
 }