用错误的脚注格式打印带有print（）的gtsummary表

Question

在我的Rmarkdown报告中，我必须在gt语句下放置一个gtsummary表，该表需要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)显式打印输出。