How to insert blank line after `page_by` row split label?

[danielinteractive]

Hi,

small question on the layout, I am trying to get a blank line after the page split labels.

Consider this reprex:

lyt <- basic_table() %>%
  split_cols_by("ARM") %>%
  split_rows_by("RACE", page_by = TRUE, section_div = " ", split_fun = drop_split_levels) %>%
  split_rows_by("STRATA1", split_fun = drop_split_levels, section_div = " ") %>%
  analyze("AGE", mean, var_labels = "Age", format = "xx.xx")

tbl <- build_table(lyt, DM)
tbl

This gives me:

                            A: Drug X   B: Placebo   C: Combination
———————————————————————————————————————————————————————————————————
ASIAN                                                              
  A                                                                
    mean                      32.19       33.90          36.81     
                                                                   
  B                                                                
    mean                      34.12       31.62          34.73     
                                                                   
  C                                                                
    mean                      36.21       33.00          32.39     
                                                                   
BLACK OR AFRICAN AMERICAN                                          
  A                                                                
    mean                      31.50       28.57          33.62     
                                                                   
[etc.]

How can I get:

                            A: Drug X   B: Placebo   C: Combination
———————————————————————————————————————————————————————————————————
ASIAN     
                                                         
  A                                                                
    mean                      32.19       33.90          36.81     
                                                                   
  B                                                                
    mean                      34.12       31.62          34.73     
                                                                   
  C                                                                
    mean                      36.21       33.00          32.39     
                                                                   
BLACK OR AFRICAN AMERICAN                                          

  A                                                                
    mean                      31.50       28.57          33.62     
                                                                   
[etc.]

(note the blank lines after ASIAN and BLACK OR AFRICAN AMERICAN)

[danielinteractive]

@gmbecker Do you have a tip?

[Melkiades]

There is a setter section(div) that allows you to do it: section_div(tbl)[1] <- " "

[danielinteractive]

Oh wow, thanks @Melkiades . Would it be possible to expose this in a bit more user friendly way as part of the API?

[Melkiades]

You mean directly from split_rows_by()? The way is done is by keeping a variable with the section divisors from the layout to the table object to the matrixPrintForm to the output. You would need to add an option since the beginning and modify the way it is stored in the layout side. I think changing how it is represented in the layout steps would complicate things noticeably. For us, we do not have the manpower to do it, but maybe @gmbecker? On my side, I am happy of the section_div() setter as a good solution

[danielinteractive]

Maybe then could include this trick in the documentation? Without finding this issue nobody will be able to do it...

[Melkiades]

It makes sense to me!! Could you add it here: https://insightsengineering.github.io/rtables/latest-tag/articles/pathing.html?q=section_div#section-dividers ?? I will review it swiftly ;)