Update ard_survival_survdiff.R

insightsengineering · Apr 15, 2024 · 3ca7f79 · 3ca7f79
1 parent e6c7bc0
commit 3ca7f79
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/R/ard_survival_survdiff.R b/R/ard_survival_survdiff.R
@@ -85,8 +85,15 @@ ard_survival_survdiff <- function(formula, data, rho = 0, ...) {
     .add_survdiff_stat_labels() |>
     dplyr::mutate(
       context = "survival_survdiff",
-      warning = lst_glance[["warning"]],
-      error = lst_glance[["error"]]
+      warning = lst_glance["warning"],
+      error = lst_glance["error"],
+      fmt_fn = map(
+        .data$stat,
+        function(x) {
+          if (is.numeric(x)) return(1L)
+          NULL
+        }
+      )
     ) |>
     cards::tidy_ard_column_order() %>%
     {structure(., class = c("card", class(.)))} # styler: off