Блог

В моем отчете Rmarkdown я должен поместить таблицу gtsummary в оператор if, который требует print() ее явной печати. Однако распечатка не имеет правильного формата для сноски. Что я пропустил и как мне это исправить? Код:

 stats_summary_table <-
    dat_wide %>%
    tbl_summary(by = id, 
                missing = "no",
                digits = list(all_continuous() ~ c(0, 0, 1, 1, 3)),
                type = list(all_numeric() ~ "continuous"),
                statistic = list(all_continuous() ~ 
                                   "{min} ~ {max} {mean} ± {sd} [{cv}]")) %>%
      modify_footnote(starts_with("stat_") ~ "Range and mean±SD [cv]")
  
  
  if (n_distinct(dat_wide$id) > 1) {
    stats_summary_table <- stats_summary_table %>%  
      add_stat(
        fns = everything() ~ cal_cv,  
        fmt_fun = NULL,
        header = "**%CV**",
        footnote = "Coefficient of variation") %>%
      add_p()
  }

  
  print(stats_summary_table)
  

неявная распечатка с помощью stats_summary_table .

явная распечатка с помощью print(stats_summary_table) .