feat: changed the style of the table header in the RTF output

[kpagacz]

• in outputs where there are more than one table per file, the title of the tables other than the first one have their style changed
• this hopefully avoids an issue where the downstream tools used by users bookmark the titles of the tables other than the first one

[kpagacz]

The way the RTF files look in word should stay the same. Here's some code to generate the multiple tables:

devtools::load_all(".")

tbl <- data.frame(
  label = "Subjects with ≥ 1 concomitant medication",
  col1 = "1 (100.0%)",
  col2 = "1 (100.0%)",
  col3 = "2 (100.0%)",
  col4 = "1 (100.0%)",
  col5 = "3 (100.0%)",
  row_type = "VALUE"
)

tbl2 <- data.frame(
  label = "Subjects with ≥ 1 concomitant medication",
  col1 = "1 (100.0%)",
  col2 = "1 (100.0%)",
  col3 = "2 (100.0%)",
  col4 = "1 (100.0%)",
  col5 = "3 (100.0%)",
  row_type = "VALUE"
)

gentlg(
  huxme = tbl,
  orientation = "landscape",
  file = "no-borders",
  title = "Summary of Concomitant Medications",
  colspan = list(
    c("", "Active Study Agent", "Active Study Agent", "Active Study Agent", "", ""),
    c("", "Treatment 1", "Treatment 1", "Treatment 2", "Combined", "Total")
  ),
  colheader = c(" Standardized medication name", "N=1", "N=1", "N=2", "N=1", "N=3"),
  wcol = .30
)

gentlg(
  huxme = list(tbl, tbl2),
  orientation = "landscape",
  file = "no-borders",
  title = "Summary of Concomitant Medications",
  colspan = list(
    c("", "Active Study Agent", "Active Study Agent", "Active Study Agent", "", ""),
    c("", "Treatment 1", "Treatment 1", "Treatment 2", "Combined", "Total")
  ),
  colheader = c(" Standardized medication name", "N=1", "N=1", "N=2", "N=1", "N=3"),
  wcol = .30
)

[shengwei66]

Looks good!