如何在RMarkdown Word输出中展示循环生成的gt表格？

问题重现 #

直接使用gt()生成表格时，Word输出正常：

---
title: "Testing gt"
output: word_document
---

```{r, echo=FALSE, results='asis'}
gt::gt(gt::exibble, rowname_col = 'row', groupname_col = 'group')

但在循环中用`print()`输出gt表格到Word时，表格结构会丢失，每个单元格单独占一行；如果省略`print()`则无任何输出：
```r
---
title: "Testing gt"
output: word_document
---

```{r, echo=FALSE, results='asis'}
for (i in 1) {
  print(gt::gt(gt::exibble, rowname_col = 'row', groupname_col = 'group'))
}

## 原因分析
- 直接调用gt对象时，RMarkdown会自动触发`knitr::knit_print()`函数，根据目标输出格式（Word/HTML）生成适配的表格代码。
- 循环场景下R不会自动执行上述逻辑，而`print()`方法对gt对象的处理在Word输出时，会生成纯文本格式的表格内容，导致原有结构完全丢失。

## 解决方案
在循环中手动调用`knitr::knit_print()`输出gt表格，同时保持代码块的`results='asis'`设置：
```r
---
title: "Testing gt"
output: word_document
---

```{r, echo=FALSE, results='asis'}
for (i in 1) {
  # 生成适配Word的表格代码并输出
  knitr::knit_print(gt::gt(gt::exibble, rowname_col = 'row', groupname_col = 'group'))
  # 添加换行分隔多个表格（可选）
  cat('\n\n')
}

如果不想看到额外的输出信息，可以用`invisible()`包裹：
```r
for (i in 1) {
  invisible(knitr::knit_print(gt::gt(gt::exibble, rowname_col = 'row', groupname_col = 'group')))
  cat('\n\n')
}

原理说明 #

knitr::knit_print()是RMarkdown处理对象输出的核心函数，它会根据当前输出目标（Word）生成对应的表格XML代码，确保表格结构完整保留。

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