no suggests for the survival package

Author: topepo

tests/testthat/helper-objects.R

@@ -113,3 +113,17 @@ if (rlang::is_installed("modeldata")) {
   }
 }
 
+if (rlang::is_installed("survival")) {
+  data(cancer, package = "survival")
+  basic_form <- survival::Surv(time, status) ~ age
+  complete_form <- survival::Surv(time) ~ age
+
+  if (R.Version()$major < "4") {
+    data(lung, package = 'survival')
+  } else {
+    data(cancer, package = 'survival')
+  }
+
+  basic_form <- survival::Surv(time, status) ~ group
+  complete_form <- survival::Surv(time) ~ group
+}

tests/testthat/test-surv_reg_flexsurv.R

@@ -1,12 +1,10 @@
-data(cancer, package = "survival")
 
-basic_form <- survival::Surv(time, status) ~ age
-complete_form <- survival::Surv(time) ~ age
 
 # ------------------------------------------------------------------------------
 
 test_that('flexsurv execution', {
   skip_if_not_installed("flexsurv")
+  skip_if_not_installed("survival")
 
   rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() |> set_engine("flexsurv")
@@ -43,6 +41,8 @@ test_that('flexsurv execution', {
 
 test_that('flexsurv prediction', {
   skip_if_not_installed("flexsurv")
+  skip_if_not_installed("survival")
+
 
   rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() |> set_engine("flexsurv")

tests/testthat/test-surv_reg_survreg.R

@@ -1,11 +1,4 @@
-if (R.Version()$major < "4") {
-  data(lung, package = 'survival')
-} else {
-  data(cancer, package = 'survival')
-}
 
-basic_form <- survival::Surv(time, status) ~ group
-complete_form <- survival::Surv(time) ~ group
 
 # ------------------------------------------------------------------------------