保留glance源注释同时消除tbl_regression转flex_table的警告

警告的核心原因是gtsummary包更新后，add_glance_source_note()内部使用空符号添加脚注的方式被标记为弃用，官方要求改用add_footer_lines()来添加底部注释。要保留glance统计信息同时消除警告，可手动提取并格式化glance结果，再通过add_footer_lines()添加：

修改后的代码示例 #

# 1. 拟合模型并生成基础回归表格
fit <- lm(y ~ x, data = dat)
reg_tbl <- fit |> tbl_regression(intercept = TRUE)

# 2. 提取并格式化glance统计信息（可按需调整输出内容）
glance_content <- fit |>
  broom::glance() |>
  dplyr::mutate(
    glance_text = glue::glue(
      "R² = {round(r.squared, 3)}, 调整后R² = {round(adj.r.squared, 3)}, F统计量 = {round(fstatistic[1], 2)}, p值 = {round(p.value, 4)}"
    )
  ) |>
  dplyr::pull(glance_text)

# 3. 构建最终表格并添加格式化后的glance注释
reg_tbl |>
  add_footer_lines(glance_content) |>
  as_flex_table() |>
  flextable::font(fontname = "Consolas", part = "all")

补充说明 #

如果需要和add_glance_source_note()完全一致的标准化输出格式，可以借助gtsummary::format_glance()快速生成：

glance_content <- fit |>
  broom::glance() |>
  gtsummary::format_glance() |>
  paste(collapse = "; ")

替换后既保留了原有的模型概览统计信息，又符合包的最新语法规范，不会再触发警告。

内容的提问来源于stack exchange，提问作者LucaS