Makes index of factors requiring indent from fmt_table1 objects in Rmarkdown

Makes index of factors requiring indent from fmt_table1 objects in Rmarkdown

# S3 method for fmt_table1
indent_key(x, ...)

Arguments

x	fmt_table1 object
...	further arguments passed to or from other methods

Examples

  t1 <-
    trial %>%
    fmt_table1() %>%
    bold_labels()

  knitr::kable(as_tibble(t1),
    row.names = FALSE,
    caption = "Table 1: Summary of Patient and Clinical Variables"
  ) %>%
    kableExtra::kable_styling(
      bootstrap_options = c("condensed"),
      font_size = 11,
      full_width = F
    ) %>%
    kableExtra::add_indent(indent_key(t1))
#> <table class="table table-condensed" style="font-size: 11px; width: auto !important; margin-left: auto; margin-right: auto;">
#> <caption style="font-size: initial !important;">Table 1: Summary of Patient and Clinical Variables</caption>
#>  <thead>
#>   <tr>
#>    <th style="text-align:left;"> Variable </th>
#>    <th style="text-align:left;"> N = 200 </th>
#>   </tr>
#>  </thead>
#> <tbody>
#>   <tr>
#>    <td style="text-align:left;"> __Treatment Randomization__ </td>
#>    <td style="text-align:left;">  </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> Drug </td>
#>    <td style="text-align:left;"> 107 (54%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> Placebo </td>
#>    <td style="text-align:left;"> 93 (46%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;"> __Age, yrs__ </td>
#>    <td style="text-align:left;"> 47 (38, 57) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> Unknown </td>
#>    <td style="text-align:left;"> 8 </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;"> __Marker Level, ng/mL__ </td>
#>    <td style="text-align:left;"> 0.68 (0.22, 1.42) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> Unknown </td>
#>    <td style="text-align:left;"> 8 </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;"> __T Stage__ </td>
#>    <td style="text-align:left;">  </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> T1 </td>
#>    <td style="text-align:left;"> 51 (26%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> T2 </td>
#>    <td style="text-align:left;"> 49 (24%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> T3 </td>
#>    <td style="text-align:left;"> 42 (21%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> T4 </td>
#>    <td style="text-align:left;"> 58 (29%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;"> __Grade__ </td>
#>    <td style="text-align:left;">  </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> I </td>
#>    <td style="text-align:left;"> 67 (34%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> II </td>
#>    <td style="text-align:left;"> 58 (29%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> III </td>
#>    <td style="text-align:left;"> 75 (38%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left;"> __Tumor Response__ </td>
#>    <td style="text-align:left;"> 82 (43%) </td>
#>   </tr>
#>   <tr>
#>    <td style="text-align:left; padding-left: 2em;" indentlevel="1"> Unknown </td>
#>    <td style="text-align:left;"> 9 </td>
#>   </tr>
#> </tbody>
#> </table>