diff --git a/R/summarize_coxreg.R b/R/summarize_coxreg.R index 382cff2862..0e19cdb554 100644 --- a/R/summarize_coxreg.R +++ b/R/summarize_coxreg.R @@ -448,7 +448,8 @@ summarize_coxreg <- function(lyt, lyt <- lyt %>% analyze_colvars( afun = a_coxreg, - extra_args = list(variables = variables, at = at, control = control, multivar = multivar, labelstr = "") + extra_args = list(variables = variables, at = at, control = control, multivar = multivar, labelstr = ""), + indent_mod = if (!"arm" %in% names(variables) || multivar) 0L else -1L ) } } diff --git a/R/summarize_num_patients.R b/R/summarize_num_patients.R index f83b072fc7..8883eb2f1b 100644 --- a/R/summarize_num_patients.R +++ b/R/summarize_num_patients.R @@ -54,7 +54,9 @@ s_num_patients <- function(x, labelstr, .N_col, count_by = NULL, unique_count_su out <- list( unique = formatters::with_label(c(count1, ifelse(count1 == 0 && .N_col == 0, 0, count1 / .N_col)), labelstr), nonunique = formatters::with_label(count2, labelstr), - unique_count = formatters::with_label(count1, ifelse(unique_count_suffix, paste(labelstr, "(n)"), labelstr)) + unique_count = formatters::with_label( + count1, ifelse(unique_count_suffix, paste0(labelstr, if (nzchar(labelstr)) " ", "(n)"), labelstr) + ) ) out diff --git a/tests/testthat/_snaps/summarize_num_patients.md b/tests/testthat/_snaps/summarize_num_patients.md index b18211cbfb..fb4b2d2276 100644 --- a/tests/testthat/_snaps/summarize_num_patients.md +++ b/tests/testthat/_snaps/summarize_num_patients.md @@ -16,7 +16,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients works as expected with empty input @@ -37,7 +37,7 @@ $unique_count [1] 0 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients works as expected with unique_count_suffix = FALSE @@ -79,7 +79,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # summarize_num_patients works as expected with healthy input @@ -119,10 +119,10 @@ Code res Output - A B - (N=5) (N=4) - ———————————————————— - (n) 3 3 + A B + (N=5) (N=4) + ——————————————————— + (n) 3 3 # s_num_patients count_by works as expected with healthy input @@ -142,7 +142,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients count_by with missing works as expected with healthy input @@ -163,7 +163,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients count_by with missing case 2 works as expected with healthy input @@ -184,7 +184,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients_content with count_by works as expected with healthy input @@ -205,7 +205,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients_content with count_by case 2 works as expected with healthy input @@ -226,7 +226,7 @@ $unique_count [1] 3 attr(,"label") - [1] " (n)" + [1] "(n)" # s_num_patients_content with count_by trivial cases, identical to without count_by @@ -247,7 +247,7 @@ $unique_count [1] 4 attr(,"label") - [1] " (n)" + [1] "(n)" # summarize_num_patients with count_by works as expected with healthy input @@ -287,10 +287,10 @@ Code res Output - A B - (N=5) (N=4) - ———————————————————— - (n) 3 3 + A B + (N=5) (N=4) + ——————————————————— + (n) 3 3 # summarize_num_patients with count_by different combinations works as expected with healthy input