switch to rlang

Author: hfrick

tests/testthat/test_surv_reg.R

@@ -11,7 +11,7 @@ source("helpers.R")
 # ------------------------------------------------------------------------------
 
 test_that('primary arguments', {
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
 
   basic <- surv_reg()
   basic_flexsurv <- translate(basic %>% set_engine("flexsurv"))
@@ -48,7 +48,7 @@ test_that('primary arguments', {
 })
 
 test_that('engine arguments', {
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
 
   fs_cl <- surv_reg()
   expect_equal(translate(fs_cl %>% set_engine("flexsurv", cl = .99))$method$fit$args,
@@ -64,7 +64,7 @@ test_that('engine arguments', {
 
 
 test_that('updating', {
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
 
   expr1     <- surv_reg() %>% set_engine("flexsurv", cl = varying())
   expr1_exp <- surv_reg(dist = "lnorm") %>% set_engine("flexsurv", cl = .99)
@@ -81,14 +81,14 @@ test_that('updating', {
 })
 
 test_that('bad input', {
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
 
   expect_error(surv_reg(mode = ", classification"))
   expect_error(translate(surv_reg() %>% set_engine("wat")))
   expect_error(translate(surv_reg() %>% set_engine(NULL)))
 })
 
 test_that("deprecation warning", {
-  withr::local_options(lifecycle_verbosity = "warning")
+  rlang::local_options(lifecycle_verbosity = "warning")
   expect_warning(surv_reg())
 })

tests/testthat/test_surv_reg_flexsurv.R

@@ -16,7 +16,7 @@ complete_form <- Surv(time) ~ age
 test_that('flexsurv execution', {
   skip_if_not_installed("flexsurv")
 
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() %>% set_engine("flexsurv")
 
   expect_error(
@@ -53,7 +53,7 @@ test_that('flexsurv execution', {
 test_that('flexsurv prediction', {
   skip_if_not_installed("flexsurv")
 
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() %>% set_engine("flexsurv")
 
   res <- fit(

tests/testthat/test_surv_reg_survreg.R

@@ -15,7 +15,7 @@ complete_form <- Surv(time) ~ group
 test_that('survival execution', {
   skip_on_travis()
 
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() %>% set_engine("survival")
   surv_lnorm <- surv_reg(dist = "lognormal") %>% set_engine("survival")
 
@@ -51,7 +51,7 @@ test_that('survival execution', {
 test_that('survival prediction', {
   skip_on_travis()
 
-  withr::local_options(lifecycle_verbosity = "quiet")
+  rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() %>% set_engine("survival")
   surv_lnorm <- surv_reg(dist = "lognormal") %>% set_engine("survival")