Update test-ard_survival_survfit_diff.R

insightsengineering · May 24, 2024 · 181123e · 181123e
1 parent 9afaea8
commit 181123e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-ard_survival_survfit_diff.R b/tests/testthat/test-ard_survival_survfit_diff.R
@@ -1,6 +1,6 @@
 test_that("ard_survival_survfit_diff() works", {
   withr::local_package("survival")
-  sf <- survfit(Surv(AVAL, 1- CNSR) ~ SEX, cards::ADTTE)
+  sf <- survfit(Surv(AVAL, 1 - CNSR) ~ SEX, cards::ADTTE)
   expect_silent(
     ard1 <- ard_survival_survfit_diff(sf, times = c(25, 50))
   )
@@ -37,15 +37,15 @@ test_that("ard_survival_survfit_diff() messaging", {
   # we can only do one stratifying variable at a time
   expect_snapshot(
     error = TRUE,
-    survfit(Surv(AVAL, 1- CNSR) ~ SEX + TRTA, cards::ADTTE) |>
+    survfit(Surv(AVAL, 1 - CNSR) ~ SEX + TRTA, cards::ADTTE) |>
       ard_survival_survfit_diff(times = c(25, 50))
   )
 
   # the stratifying variable must have 2 or more levels
   expect_snapshot(
     error = TRUE,
     survfit(
-      Surv(AVAL, 1- CNSR) ~ constant,
+      Surv(AVAL, 1 - CNSR) ~ constant,
       cards::ADTTE |> dplyr::mutate(constant = 1L)
     ) |>
       ard_survival_survfit_diff(times = c(25, 50))