Update ard_survival_survdiff.R

insightsengineering · Apr 15, 2024 · fd19c77 · fd19c77
1 parent 83a955f
commit fd19c77
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/ard_survival_survdiff.R b/R/ard_survival_survdiff.R
@@ -51,7 +51,9 @@ ard_survival_survdiff <- function(formula, data, rho = 0, ...) {
 
   # tidy results up in an ARD format -------------------------------------------
   # extract variable names from formula
-  variables <- stats::terms(formula) |> attr("term.labels") |> .strip_backticks()
+  variables <- stats::terms(formula) |>
+    attr("term.labels") |>
+    .strip_backticks()
 
   # if there was an error, return results early
   if (is.null(lst_glance[["result"]])) {
@@ -61,7 +63,8 @@ ard_survival_survdiff <- function(formula, data, rho = 0, ...) {
       cli::cli_abort(
         message =
           c("There was an error in {.fun survival::survdiff}. See below:",
-            "x" = lst_glance[["error"]]),
+            "x" = lst_glance[["error"]]
+          ),
         call = get_cli_abort_call()
       )
     }
@@ -77,7 +80,7 @@ ard_survival_survdiff <- function(formula, data, rho = 0, ...) {
     stats =
       if (!is.null(lst_glance[["result"]])) unname(as.list(lst_glance[["result"]]))
       else rep_along(c("statistic", "df", "p.value"), list(NULL)) |> c(list(method = method))
-    #styler: on
+    # styler: on
   ) |>
     .add_survdiff_stat_labels() |>
     dplyr::mutate(