[skip style] [skip vbump] Restyle files

insightsengineering · Sep 9, 2024 · 881f5e7 · 881f5e7
1 parent 7806a15
commit 881f5e7
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/R/survival_time.R b/R/survival_time.R
@@ -100,9 +100,12 @@ s_surv_time <- function(df,
     range_event = formatters::with_label(range_event, "Range (event)"),
     range = formatters::with_label(range, "Range"),
     median_ci_1_line = formatters::with_label(
-      c(unname(srv_tab["median"]),
-        unname(srv_tab[paste0(srv_fit$conf.int, c("LCL", "UCL"))])),
-        paste0("Median ", f_conf_level(conf_level))),
+      c(
+        unname(srv_tab["median"]),
+        unname(srv_tab[paste0(srv_fit$conf.int, c("LCL", "UCL"))])
+      ),
+      paste0("Median ", f_conf_level(conf_level))
+    ),
     quantiles_ci_1 = formatters::with_label(
       unname(srv_qt_ci[[1]]), paste0(quantiles[1] * 100, "%-ile with ", f_conf_level(conf_level))
     ),

diff --git a/R/utils_default_stats_formats_labels.R b/R/utils_default_stats_formats_labels.R
@@ -408,7 +408,8 @@ tern_default_stats <- list(
   summarize_patients_events_in_cols = c("unique", "all"),
   surv_time = c(
     "median", "median_ci", "median_ci_1_line", "quantiles",
-    "quantiles_ci_1", "quantiles_ci_2", "range_censor", "range_event", "range"),
+    "quantiles_ci_1", "quantiles_ci_2", "range_censor", "range_event", "range"
+  ),
   surv_timepoint = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci", "rate_diff", "rate_diff_ci", "ztest_pval"),
   tabulate_rsp_biomarkers = c("n_tot", "n_rsp", "prop", "or", "ci", "pval"),
   tabulate_rsp_subgroups = c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval"),