From 62e111f2946b50d4367253474cf0700fbe9d2b13 Mon Sep 17 00:00:00 2001 From: iaugusty Date: Tue, 7 Oct 2025 11:44:20 +0000 Subject: [PATCH 1/4] no_auto_fmt --- R/formatting_functions.R | 3 +++ R/utils_default_stats_formats_labels.R | 6 ++++++ 2 files changed, 9 insertions(+) diff --git a/R/formatting_functions.R b/R/formatting_functions.R index f18409810c..ff988c1e1e 100644 --- a/R/formatting_functions.R +++ b/R/formatting_functions.R @@ -565,6 +565,9 @@ count_decimalplaces <- function(dec) { #' #' @keywords internal apply_auto_formatting <- function(.formats, x_stats, .df_row, .var) { + if (inherits(.formats, "no_auto_fmt")){ + return(NULL) + } is_auto_fmt <- vapply(.formats, function(ii) is.character(ii) && ii == "auto", logical(1)) if (any(is_auto_fmt)) { auto_stats <- x_stats[is_auto_fmt] diff --git a/R/utils_default_stats_formats_labels.R b/R/utils_default_stats_formats_labels.R index 4cab644751..56d6586da8 100644 --- a/R/utils_default_stats_formats_labels.R +++ b/R/utils_default_stats_formats_labels.R @@ -276,6 +276,9 @@ get_formats_from_stats <- function(stats, is.null(names(formats_in)) && is.null(levels_per_stats) ) { out <- as.list(formats_in) %>% setNames(stats) + if (inherits(formats_in, "no_auto_fmt")){ + class(out) <- "no_auto_fmt" + } return(out) } @@ -291,6 +294,9 @@ get_formats_from_stats <- function(stats, case_input_is_not_stat <- unlist(out, use.names = FALSE) == unlist(levels_per_stats, use.names = FALSE) out[names(out) == out | case_input_is_not_stat] <- list(NULL) + if (inherits(formats_in, "no_auto_fmt")){ + class(out) <- "no_auto_fmt" + } out } From d1ee483ae0357016c6bfa35b4cd81c99e9741ab1 Mon Sep 17 00:00:00 2001 From: iaugusty Date: Tue, 7 Oct 2025 11:46:08 +0000 Subject: [PATCH 2/4] format to analyze --- R/analyze_variables.R | 6 ++++-- R/summarize_ancova.R | 6 ++++-- R/summarize_change.R | 6 ++++-- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/R/analyze_variables.R b/R/analyze_variables.R index 842c147c8a..81c90e0b66 100644 --- a/R/analyze_variables.R +++ b/R/analyze_variables.R @@ -762,7 +762,8 @@ analyze_vars <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Depending on main functions extra_args <- list( "na_rm" = na_rm, @@ -796,6 +797,7 @@ analyze_vars <- function(lyt, extra_args = extra_args, show_labels = show_labels, table_names = table_names, - section_div = section_div + section_div = section_div, + format = format ) } diff --git a/R/summarize_ancova.R b/R/summarize_ancova.R index f740c43e46..093f21901a 100644 --- a/R/summarize_ancova.R +++ b/R/summarize_ancova.R @@ -321,7 +321,8 @@ summarize_ancova <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = list("lsmean_diff_ci" = 1L, "pval" = 1L)) { + .indent_mods = list("lsmean_diff_ci" = 1L, "pval" = 1L), + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -351,6 +352,7 @@ summarize_ancova <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/summarize_change.R b/R/summarize_change.R index bc3ebb89ff..bdcb1c782c 100644 --- a/R/summarize_change.R +++ b/R/summarize_change.R @@ -169,7 +169,8 @@ summarize_change <- function(lyt, mean_pval = "xx.xx" ), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -200,6 +201,7 @@ summarize_change <- function(lyt, show_labels = show_labels, table_names = table_names, inclNAs = !na_rm, - section_div = section_div + section_div = section_div, + format = format ) } From 83a251cd2c1a878b62db10c6beccecb6045f4c50 Mon Sep 17 00:00:00 2001 From: iaugusty Date: Tue, 7 Oct 2025 11:47:34 +0000 Subject: [PATCH 3/4] format to analyze count functions --- R/abnormal.R | 6 ++++-- R/abnormal_by_baseline.R | 6 ++++-- R/abnormal_by_marked.R | 6 ++++-- R/abnormal_by_worst_grade.R | 6 ++++-- R/abnormal_lab_worsen_by_baseline.R | 6 ++++-- R/count_cumulative.R | 6 ++++-- R/count_missed_doses.R | 6 ++++-- R/count_occurrences.R | 6 ++++-- R/count_occurrences_by_grade.R | 6 ++++-- R/count_patients_with_event.R | 6 ++++-- R/count_patients_with_flags.R | 6 ++++-- R/count_values.R | 6 ++++-- R/summarize_num_patients.R | 6 ++++-- 13 files changed, 52 insertions(+), 26 deletions(-) diff --git a/R/abnormal.R b/R/abnormal.R index 141fc1155f..e0bc106743 100644 --- a/R/abnormal.R +++ b/R/abnormal.R @@ -216,7 +216,8 @@ count_abnormal <- function(lyt, .stat_names = NULL, .formats = list(fraction = format_fraction), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -243,6 +244,7 @@ count_abnormal <- function(lyt, nested = nested, extra_args = extra_args, show_labels = "hidden", - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/abnormal_by_baseline.R b/R/abnormal_by_baseline.R index 13c8cd2cf6..b20fd040ae 100644 --- a/R/abnormal_by_baseline.R +++ b/R/abnormal_by_baseline.R @@ -233,7 +233,8 @@ count_abnormal_by_baseline <- function(lyt, .stat_names = NULL, .formats = list(fraction = format_fraction), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_character(abnormal, len = length(table_names), names = "named") checkmate::assert_string(var) @@ -266,7 +267,8 @@ count_abnormal_by_baseline <- function(lyt, nested = nested, extra_args = extra_args, show_labels = "visible", - table_names = table_names[i] + table_names = table_names[i], + format = format ) } diff --git a/R/abnormal_by_marked.R b/R/abnormal_by_marked.R index 7089a16ad5..a2274b6f5b 100644 --- a/R/abnormal_by_marked.R +++ b/R/abnormal_by_marked.R @@ -273,7 +273,8 @@ count_abnormal_by_marked <- function(lyt, .stat_names = NULL, .formats = list(count_fraction = format_count_fraction), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_string(var) # Process standard extra arguments @@ -299,6 +300,7 @@ count_abnormal_by_marked <- function(lyt, na_str = na_str, nested = nested, extra_args = extra_args, - show_labels = "hidden" + show_labels = "hidden", + format = format ) } diff --git a/R/abnormal_by_worst_grade.R b/R/abnormal_by_worst_grade.R index dacaf4f2b7..30ac864eea 100644 --- a/R/abnormal_by_worst_grade.R +++ b/R/abnormal_by_worst_grade.R @@ -209,7 +209,8 @@ count_abnormal_by_worst_grade <- function(lyt, .stat_names = NULL, .formats = list(count_fraction = format_count_fraction), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -233,7 +234,8 @@ count_abnormal_by_worst_grade <- function(lyt, na_str = na_str, nested = nested, extra_args = extra_args, - show_labels = "hidden" + show_labels = "hidden", + format = format ) } diff --git a/R/abnormal_lab_worsen_by_baseline.R b/R/abnormal_lab_worsen_by_baseline.R index 21a2d41545..f0e32da851 100644 --- a/R/abnormal_lab_worsen_by_baseline.R +++ b/R/abnormal_lab_worsen_by_baseline.R @@ -197,7 +197,8 @@ count_abnormal_lab_worsen_by_baseline <- function(lyt, .stat_names = NULL, .formats = list(fraction = format_fraction), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_string(var) # Deprecated argument warning @@ -231,7 +232,8 @@ count_abnormal_lab_worsen_by_baseline <- function(lyt, na_str = na_str, nested = nested, extra_args = extra_args, - show_labels = "hidden" + show_labels = "hidden", + format = format ) } diff --git a/R/count_cumulative.R b/R/count_cumulative.R index dc71d3a833..a2e2650a47 100644 --- a/R/count_cumulative.R +++ b/R/count_cumulative.R @@ -255,7 +255,8 @@ count_cumulative <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = format) { # Depending on main functions extra_args <- list( "na_rm" = na_rm, @@ -290,6 +291,7 @@ count_cumulative <- function(lyt, var_labels = var_labels, show_labels = show_labels, nested = nested, - extra_args = extra_args + extra_args = extra_args, + format = format ) } diff --git a/R/count_missed_doses.R b/R/count_missed_doses.R index 4c1d362636..a9eda16fa8 100644 --- a/R/count_missed_doses.R +++ b/R/count_missed_doses.R @@ -193,7 +193,8 @@ count_missed_doses <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Depending on main functions extra_args <- list( "na_rm" = na_rm, @@ -226,6 +227,7 @@ count_missed_doses <- function(lyt, var_labels = var_labels, show_labels = show_labels, nested = nested, - extra_args = extra_args + extra_args = extra_args, + format = format ) } diff --git a/R/count_occurrences.R b/R/count_occurrences.R index c5887c8150..c70a6bba9d 100644 --- a/R/count_occurrences.R +++ b/R/count_occurrences.R @@ -253,7 +253,8 @@ count_occurrences <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_flag(riskdiff) afun <- if (isFALSE(riskdiff)) a_count_occurrences else afun_riskdiff @@ -285,7 +286,8 @@ count_occurrences <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/count_occurrences_by_grade.R b/R/count_occurrences_by_grade.R index 0947bb40cb..608611b74d 100644 --- a/R/count_occurrences_by_grade.R +++ b/R/count_occurrences_by_grade.R @@ -377,7 +377,8 @@ count_occurrences_by_grade <- function(lyt, .stat_names = NULL, .formats = list(count_fraction = format_count_fraction_fixed_dp), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_flag(riskdiff) afun <- if (isFALSE(riskdiff)) a_count_occurrences_by_grade else afun_riskdiff @@ -409,7 +410,8 @@ count_occurrences_by_grade <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/count_patients_with_event.R b/R/count_patients_with_event.R index 76fd1b867b..0360ad8c25 100644 --- a/R/count_patients_with_event.R +++ b/R/count_patients_with_event.R @@ -211,7 +211,8 @@ count_patients_with_event <- function(lyt, .stat_names = NULL, .formats = list(count_fraction = format_count_fraction_fixed_dp), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_flag(riskdiff) afun <- if (isFALSE(riskdiff)) a_count_patients_with_event else afun_riskdiff @@ -242,6 +243,7 @@ count_patients_with_event <- function(lyt, nested = nested, extra_args = extra_args, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/count_patients_with_flags.R b/R/count_patients_with_flags.R index c4f2db3d13..64e7ab21c4 100644 --- a/R/count_patients_with_flags.R +++ b/R/count_patients_with_flags.R @@ -225,7 +225,8 @@ count_patients_with_flags <- function(lyt, .stat_names = NULL, .formats = list(count_fraction = format_count_fraction_fixed_dp), .indent_mods = NULL, - .labels = NULL) { + .labels = NULL, + format = NULL) { checkmate::assert_flag(riskdiff) afun <- if (isFALSE(riskdiff)) a_count_patients_with_flags else afun_riskdiff @@ -257,6 +258,7 @@ count_patients_with_flags <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/count_values.R b/R/count_values.R index de84aed3c0..a68a010f2d 100644 --- a/R/count_values.R +++ b/R/count_values.R @@ -187,7 +187,8 @@ count_values <- function(lyt, .stat_names = NULL, .formats = c(count_fraction = "xx (xx.xx%)", count = "xx"), .labels = c(count_fraction = paste(values, collapse = ", ")), - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -214,6 +215,7 @@ count_values <- function(lyt, nested = nested, extra_args = extra_args, show_labels = ifelse(length(vars) > 1, "visible", "hidden"), - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/summarize_num_patients.R b/R/summarize_num_patients.R index b39454a120..9e5da13442 100644 --- a/R/summarize_num_patients.R +++ b/R/summarize_num_patients.R @@ -328,7 +328,8 @@ analyze_num_patients <- function(lyt, unique = "Number of patients with at least one event", nonunique = "Number of events" ), - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { checkmate::assert_flag(riskdiff) afun <- if (isFALSE(riskdiff)) a_num_patients else afun_riskdiff @@ -358,6 +359,7 @@ analyze_num_patients <- function(lyt, na_str = na_str, nested = nested, extra_args = extra_args, - show_labels = show_labels + show_labels = show_labels, + format = format ) } From 6e450eb8b00c040ba119d09d47e5e716cf92e604 Mon Sep 17 00:00:00 2001 From: iaugusty Date: Tue, 7 Oct 2025 11:48:16 +0000 Subject: [PATCH 4/4] format to analyze other functions --- R/estimate_multinomial_rsp.R | 6 ++++-- R/estimate_proportion.R | 6 ++++-- R/incidence_rate.R | 6 ++++-- R/odds_ratio.R | 6 ++++-- R/prop_diff.R | 6 ++++-- R/prop_diff_test.R | 6 ++++-- R/summarize_glm_count.R | 6 ++++-- R/survival_coxph_pairwise.R | 6 ++++-- R/survival_time.R | 6 ++++-- R/survival_timepoint.R | 9 ++++++--- 10 files changed, 42 insertions(+), 21 deletions(-) diff --git a/R/estimate_multinomial_rsp.R b/R/estimate_multinomial_rsp.R index cd1ab24bba..66b9b5a854 100644 --- a/R/estimate_multinomial_rsp.R +++ b/R/estimate_multinomial_rsp.R @@ -206,7 +206,8 @@ estimate_multinomial_response <- function(lyt, .stat_names = NULL, .formats = list(prop_ci = "(xx.xx, xx.xx)"), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -232,6 +233,7 @@ estimate_multinomial_response <- function(lyt, nested = nested, extra_args = extra_args, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/estimate_proportion.R b/R/estimate_proportion.R index 63e14c8d66..57ea3767b3 100644 --- a/R/estimate_proportion.R +++ b/R/estimate_proportion.R @@ -249,7 +249,8 @@ estimate_proportion <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -277,7 +278,8 @@ estimate_proportion <- function(lyt, nested = nested, extra_args = extra_args, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/incidence_rate.R b/R/incidence_rate.R index 6b3269fd76..f517aac8dc 100644 --- a/R/incidence_rate.R +++ b/R/incidence_rate.R @@ -236,7 +236,8 @@ estimate_incidence_rate <- function(lyt, .stat_names = NULL, .formats = list(rate = "xx.xx", rate_ci = "(xx.xx, xx.xx)"), .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -264,7 +265,8 @@ estimate_incidence_rate <- function(lyt, nested = nested, extra_args = extra_args, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } else { summarize_row_groups( diff --git a/R/odds_ratio.R b/R/odds_ratio.R index 4f1f31b9a7..94447732d2 100644 --- a/R/odds_ratio.R +++ b/R/odds_ratio.R @@ -264,7 +264,8 @@ estimate_odds_ratio <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -292,7 +293,8 @@ estimate_odds_ratio <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/prop_diff.R b/R/prop_diff.R index 78f54cdab8..b88f794c28 100644 --- a/R/prop_diff.R +++ b/R/prop_diff.R @@ -283,7 +283,8 @@ estimate_proportion_diff <- function(lyt, .stat_names = NULL, .formats = c(diff = "xx.x", diff_ci = "(xx.x, xx.x)"), .labels = NULL, - .indent_mods = c(diff = 0L, diff_ci = 1L)) { + .indent_mods = c(diff = 0L, diff_ci = 1L), + format = NULL) { # Depending on main functions extra_args <- list( "na_rm" = na_rm, @@ -320,7 +321,8 @@ estimate_proportion_diff <- function(lyt, extra_args = extra_args, show_labels = show_labels, table_names = table_names, - section_div = section_div + section_div = section_div, + format = format ) } diff --git a/R/prop_diff_test.R b/R/prop_diff_test.R index c82a2871a7..1e5cc5a90c 100644 --- a/R/prop_diff_test.R +++ b/R/prop_diff_test.R @@ -236,7 +236,8 @@ test_proportion_diff <- function(lyt, .stat_names = NULL, .formats = c(pval = "x.xxxx | (<0.0001)"), .labels = NULL, - .indent_mods = c(pval = 1L)) { + .indent_mods = c(pval = 1L), + format = NULL) { # Depending on main functions extra_args <- list( "na_rm" = na_rm, @@ -271,7 +272,8 @@ test_proportion_diff <- function(lyt, extra_args = extra_args, show_labels = show_labels, table_names = table_names, - section_div = section_div + section_div = section_div, + format = format ) } diff --git a/R/summarize_glm_count.R b/R/summarize_glm_count.R index e1839cc6ab..10fe6ab623 100644 --- a/R/summarize_glm_count.R +++ b/R/summarize_glm_count.R @@ -121,7 +121,8 @@ summarize_glm_count <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = list("rate_ci" = 1L, "rate_ratio_ci" = 1L, "pval" = 1L)) { + .indent_mods = list("rate_ci" = 1L, "rate_ratio_ci" = 1L, "pval" = 1L), + format = NULL) { checkmate::assert_choice(rate_mean_method, c("emmeans", "ppmeans")) # Process standard extra arguments @@ -152,7 +153,8 @@ summarize_glm_count <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/survival_coxph_pairwise.R b/R/survival_coxph_pairwise.R index 742700ec9b..9a3184cf0d 100644 --- a/R/survival_coxph_pairwise.R +++ b/R/survival_coxph_pairwise.R @@ -242,7 +242,8 @@ coxph_pairwise <- function(lyt, .stat_names = NULL, .formats = NULL, .labels = NULL, - .indent_mods = NULL) { + .indent_mods = NULL, + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -270,6 +271,7 @@ coxph_pairwise <- function(lyt, extra_args = extra_args, var_labels = var_labels, show_labels = show_labels, - table_names = table_names + table_names = table_names, + format = format ) } diff --git a/R/survival_time.R b/R/survival_time.R index ba7b1e6b28..dc3fb9aea7 100644 --- a/R/survival_time.R +++ b/R/survival_time.R @@ -245,7 +245,8 @@ surv_time <- function(lyt, median_ci_3d = "xx.x (xx.x - xx.x)" ), .labels = list(median_ci = "95% CI", range = "Range"), - .indent_mods = list(median_ci = 1L)) { + .indent_mods = list(median_ci = 1L), + format = NULL) { # Process standard extra arguments extra_args <- list(".stats" = .stats) if (!is.null(.stat_names)) extra_args[[".stat_names"]] <- .stat_names @@ -273,6 +274,7 @@ surv_time <- function(lyt, table_names = table_names, na_str = na_str, nested = nested, - extra_args = extra_args + extra_args = extra_args, + format = format ) } diff --git a/R/survival_timepoint.R b/R/survival_timepoint.R index 4adb04e8f8..78492ab04c 100644 --- a/R/survival_timepoint.R +++ b/R/survival_timepoint.R @@ -311,7 +311,8 @@ surv_timepoint <- function(lyt, c(rate_diff = 1L, rate_diff_ci = 2L, ztest_pval = 2L) } else { c(rate_diff_ci = 1L, ztest_pval = 1L) - }) { + }, + format = NULL) { method <- match.arg(method) checkmate::assert_string(table_names_suffix) @@ -349,7 +350,8 @@ surv_timepoint <- function(lyt, extra_args = extra_args_i, var_labels = paste(time_point[i], var_labels), show_labels = show_labels, - table_names = paste0("surv_", time_point[i], table_names_suffix) + table_names = paste0("surv_", time_point[i], table_names_suffix), + format = format ) } @@ -366,7 +368,8 @@ surv_timepoint <- function(lyt, extra_args = extra_args_i, var_labels = paste(time_point[i], var_labels), show_labels = ifelse(method == "both", "hidden", show_labels), - table_names = paste0("surv_diff_", time_point[i], table_names_suffix) + table_names = paste0("surv_diff_", time_point[i], table_names_suffix), + format = format ) } }