循环渲染gtExtras的winloss表格时PDF输出出现部分原始代码问题

在分页HTML RMarkdown文档中，使用for循环打印gtExtras::gt_plt_winloss生成的表格时，会出现如下异常：

• 循环外的表格可正常渲染
• 循环内的表格在控制台预览显示正常，但PDF输出时部分内容为原始代码、部分为渲染后的HTML

问题复现代码 #

完整的RMarkdown文档示例：

---
title: example
output: 
  pagedown::html_paged:
    toc: true
    toc_depth: 1
    self_contained: true
    number_sections: false
knit: pagedown::chrome_print
paged-footnotes: true
---

数据准备与表格定义：

set.seed(37)
data_in <- dplyr::tibble(
  grp = rep(c("A", "B", "C"), each = 10),
  wins = sample(c(0,1,.5), size = 30, prob = c(0.45, 0.45, 0.1), replace = TRUE)
) %>%
  dplyr::group_by(grp) %>%
  dplyr::summarize(wins=list(wins), .groups = "drop")

win_table <- data_in %>%
  gt() %>%
  gt_plt_winloss(wins)

循环外正常渲染代码

win_table %>% 
  tab_header("no loop")

循环内异常渲染代码

for(i in 1:2) {
  win_table %>%
    tab_header(paste("looped attempt", i)) %>% 
    print()
}

解决方案 #

在循环中，不要直接使用print()，而是通过gt::as_raw_html()将表格转换为纯HTML内容，再用cat()输出，确保results='asis'参数的预期效果，避免额外输出干扰渲染。

修改后的循环代码：

for(i in 1:2) {
  win_table %>%
    tab_header(paste("looped attempt", i)) %>% 
    gt::as_raw_html() %>%
    cat()
  # 可选：添加换行分隔表格，提升可读性
  cat("<br><br>")
}

原理说明 #

print(gt_table)在循环中会输出额外的控制台信息（非纯HTML），导致pagedown转换PDF时解析混乱。而as_raw_html()仅提取表格的纯HTML内容，配合cat()直接输出到文档流中，完全符合results='asis'的输出要求，确保渲染正常。

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