Merge 4f15319 into 5deea96

NEWS.md

@@ -11,6 +11,7 @@
 * Refactored `tabulate_rsp_subgroups` to pass sanitation checks by preventing creation of degenerate subtables.
 * Updated `analyze_vars_in_cols` to use caching, allow implementation of imputation rule via the `imp_rule` argument, and allow user to specify cell alignment via the `.aligns` argument.
 * Updated `add_rowcounts` to allow addition of row counts from `alt_counts_df` using the `alt_counts` argument.
+* Added `gp` argument to `g_forest` to control graphical parameters such as font size.
 
 ### Miscellaneous
 * Grouped functions relating to valid method names and their default formats and labels into new source file `utils_defaults_handling.R`.

R/g_forest.R

@@ -5,6 +5,7 @@
 #'
 #' @description `r lifecycle::badge("stable")`
 #'
+#' @inheritParams grid::gTree
 #' @inheritParams argument_convention
 #' @param tbl (`rtable`)
 #' @param col_x (`integer`)\cr column index with estimator. By default tries to get this from
@@ -60,7 +61,7 @@
 #'
 #' tbl <- basic_table() %>%
 #'   tabulate_rsp_subgroups(df)
-#' p <- g_forest(tbl)
+#' p <- g_forest(tbl, gp = grid::gpar(fontsize = 10))
 #'
 #' draw_grob(p)
 #'
@@ -158,6 +159,7 @@ g_forest <- function(tbl,
                      width_forest = grid::unit(1, "null"),
                      col_symbol_size = attr(tbl, "col_symbol_size"),
                      col = getOption("ggplot2.discrete.colour")[1],
+                     gp = NULL,
                      draw = TRUE,
                      newpage = TRUE) {
   checkmate::assert_class(tbl, "VTableTree")
@@ -241,6 +243,7 @@ g_forest <- function(tbl,
     width_forest,
     symbol_size = symbol_size,
     col = col,
+    gp = gp,
     vp = grid::plotViewport(margins = rep(1, 4))
   )
 

inst/WORDLIST

@@ -22,12 +22,14 @@ biomarkers
 coercible
 funder
 layouting
+params
 poisson
 pre
 quasipoisson
 repo
 responder
 responders
+rtables
 subtable
 subtables
 unformatted