`toString` hangs if `indent_rownames = FALSE`

[Melkiades]

library(rtables)
a <- basic_table() %>% 
    split_cols_by("ARM") %>% 
    split_rows_by("STRATA1") %>% 
    summarize_row_groups() %>% 
    split_rows_by("SEX", split_fun = drop_split_levels) %>% 
    analyze("BMRKR1") %>% 
    build_table(DM)
mf_a <- matrix_form(a) # to avoid hanging it is enough to put , TRUE
to_mod <- mf_aligns(mf_a)
to_mod[-1, ][, -1] <- "right"
mf_aligns(mf_a) <- to_mod

cat(toString(mf_a))

[shajoezhu]

I think the issue is coming from the toString function here. See the following example, in this case when indent_rownames = FALSE, it compute the colwidths as c(4, 10, 10, 14)

> cat(toString(mf_a, widths = c(10, 10, 10, 14)))
             A: Drug X    B: Placebo   C: Combination
—————————————————————————————————————————————————————
A            36 (29.8%)   33 (31.1%)     45 (34.9%)  
  F                                                  
    Mean        6.04         6.54           6.52     
  M                                                  
    Mean        5.68         4.96           5.50     
B            41 (33.9%)   40 (37.7%)     38 (29.5%)  
  F                                                  
    Mean        6.44         5.71           6.14     
  M                                                  
    Mean        3.82         5.96           6.51     
C            44 (36.4%)   33 (31.1%)     46 (35.7%)  
  F                                                  
    Mean        5.60         6.39           4.92     
  M                                                  
    Mean        6.25         6.67           4.91 

cat(toString(mf_a, widths = c(5, 10, 10, 14))) works

cat(toString(mf_a, widths = c(4, 10, 10, 14))) stuck

cat(toString(mf_a, widths = c(3, 10, 10, 14))) throw error

cat(toString(mf_a, widths = c(4, 10, 10, 14))) should work, and it should remove the indent at the first column

[Melkiades]

@shajoezhu the default of toString uses indent_rows = TRUE