Fix indentation in functions that use matrix_form

R/g_forest.R

@@ -223,7 +223,7 @@ g_forest <- function(tbl,
   checkmate::assert_true(is.null(col) | length(col) == 1 | length(col) == nrow(tbl))
 
   # Extract info from table
-  mat <- matrix_form(tbl)
+  mat <- matrix_form(tbl, indent_rownames = TRUE)
   mat_strings <- formatters::mf_strings(mat)
   nlines_hdr <- formatters::mf_nlheader(mat)
   nrows_body <- nrow(mat_strings) - nlines_hdr

R/utils_ggplot.R

@@ -36,7 +36,7 @@
 #'
 #' @export
 rtable2gg <- function(tbl, fontsize = 12, colwidths = NULL, lbl_col_padding = 0) {
-  mat <- rtables::matrix_form(tbl)
+  mat <- rtables::matrix_form(tbl, indent_rownames = TRUE)
   mat_strings <- formatters::mf_strings(mat)
   mat_aligns <- formatters::mf_aligns(mat)
   mat_indent <- formatters::mf_rinfo(mat)$indent