From 3b167a0831b247fbfbeee01fbf91b28a591bfe9a Mon Sep 17 00:00:00 2001
From: Hannah Frick <hannah@posit.co>
Date: Thu, 19 Sep 2024 21:22:31 +0100
Subject: [PATCH] pass CI on older R versions?

to avoid `Error in `as.data.frame.default(x[[i]], optional = TRUE)`: cannot coerce class '"Surv"' to a data.frame`
---
 tests/testthat/test-vfold.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/testthat/test-vfold.R b/tests/testthat/test-vfold.R
index 3bf8dff6..f6e7bd1f 100644
--- a/tests/testthat/test-vfold.R
+++ b/tests/testthat/test-vfold.R
@@ -96,7 +96,9 @@ test_that("strata arg is checked", {
     type = "right", 
     class = "Surv"
   )
-  dat <- data.frame(a = 1:5, b = surv_obj)
+  dat <- data.frame(a = 1:5)
+  # add Surv object like this for older R versions (<= 4.2.3)
+  dat$b <- surv_obj
   expect_snapshot(error = TRUE, {
     vfold_cv(dat, strata = b)
   })