Merge branch 'main' into 52_standardise_optional@main

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: teal.modules.clinical
 Title: 'teal' Modules for Standard Clinical Outputs
-Version: 0.9.0.9008
-Date: 2024-03-01
+Version: 0.9.0.9009
+Date: 2024-03-07
 Authors@R: c(
     person("Joe", "Zhu", , "[email protected]", role = c("aut", "cre")),
     person("Jana", "Stoilova", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,4 +1,4 @@
-# teal.modules.clinical 0.9.0.9008
+# teal.modules.clinical 0.9.0.9009
 
 ### Enhancements
 * Updated `tm_g_forest_rsp` and `tm_g_forest_tte` to use refactored version of `g_forest`. Plots are now displayed as `ggplot` objects instead of `grob` objects. Added parameters `font_size` and `rel_width_forest` to control font size and width of plot relative to table, respectively.

tests/testthat/_snaps/tm_t_summary_by.md

@@ -54,13 +54,12 @@
       
       $layout
       lyt <- rtables::basic_table(title = "Summary Table for AVAL, CHG by AVISIT") %>% 
-          rtables::split_cols_by("ARM") %>% rtables::add_overall_col("All Patients") %>% 
-          rtables::add_colcounts() %>% rtables::split_rows_by("AVISIT", 
-          split_label = teal.data::col_labels(adlb, fill = FALSE)[["AVISIT"]], 
-          split_fun = split_fun, label_pos = "topleft") %>% split_cols_by_multivar(vars = c("AVAL", 
-          "CHG")) %>% summarize_colvars(vars = c("AVAL", "CHG"), na.rm = FALSE, 
-          denom = "N_col", .stats = c("n", "mean_sd", "mean_ci", "median", 
-              "median_ci", "quantiles", "range", "count_fraction"), 
+          rtables::split_cols_by("ARM") %>% rtables::add_colcounts() %>% 
+          rtables::split_rows_by("AVISIT", split_label = teal.data::col_labels(adlb, 
+              fill = FALSE)[["AVISIT"]], split_fun = split_fun, label_pos = "topleft") %>% 
+          split_cols_by_multivar(vars = c("AVAL", "CHG")) %>% summarize_colvars(vars = c("AVAL", 
+          "CHG"), na.rm = FALSE, denom = "N_col", .stats = c("n", "mean_sd", 
+          "mean_ci", "median", "median_ci", "quantiles", "range", "count_fraction"), 
           na_str = "<Missing>")
       
       $table