R Markdown中导出gt表格为RTF文件的异常问题求助

问题原因 #

当代码块设置results='asis'时，knitr会捕获代码块中所有控制台输出并直接插入到HTML文档中，包括gtsave执行时生成的RTF原始内容，导致RTF文件被额外添加!!!!!RAW-KNITR-CONTENT前缀，破坏了RTF格式结构。而交互式运行时没有knitr的输出捕获逻辑，所以能生成正常RTF。

解决方案 #

方案1：拆分代码块（推荐） #

将表格展示和RTF导出拆分为两个独立代码块，避免results='asis'干扰RTF生成：

---
title: "rtf test"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)
library(gt)

# 生成并展示gt表格
out <- mtcars %>% 
  head() %>% 
  gt()

print(out)

# 单独执行RTF导出，不受results='asis'影响
gtsave(out, filename = "rtf_test.rtf")

### 方案2：用`invisible()`抑制输出
在同一代码块中，用`invisible()`包裹`gtsave`，阻止其输出被knitr捕获：
```yaml
---
title: "rtf test"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)
library(gt)

out <- mtcars %>% 
  head() %>% 
  gt()

print(out)

# 抑制gtsave的输出，避免被knitr处理
invisible(gtsave(out, filename = "rtf_test.rtf"))

两种方案都能生成符合预期的RTF表格，同时正常在HTML文档中展示gt表格。

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