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`
tidymodels · Sep 19, 2024 · 3b167a0 · 3b167a0
1 parent 8f57e0c
commit 3b167a0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)
   })