如何在main.Rmd中引入example.Rmd代码并实现语法高亮且不执行？

问题场景 #

你有两个RMarkdown文件：main.Rmd是主渲染文件，example.Rmd用于存放示例代码（因需被其他场景调用，独立为单独文档）。需要将example.Rmd的内容引入main.Rmd，同时保留其RMarkdown代码的语法高亮效果，且不执行其中的代码，达到手动复制代码到代码块并设置eval=FALSE的效果。之前用cat(readLines("example.Rmd"))的方法无法实现需求。

解决方案 #

方案一：基础实现 #

修改main.Rmd中的代码块，通过输出RMarkdown代码块标记的方式，让外部文件内容被正确识别并高亮：

---
title: This is main.rmd
output: html_document
---

```{r, results='asis', echo=FALSE}
# 读取example.Rmd并以RMarkdown代码块形式输出
cat("```rmarkdown\n")
cat(readLines("example.Rmd"), sep = "\n")
cat("\n```")

### 方案二：用xfun包简化代码
如果已安装`xfun`包，可使用`file_string`函数简化文件读取步骤：

```rmarkdown
---
title: This is main.rmd
output: html_document
---

```{r, results='asis', echo=FALSE}
library(xfun)
cat("```rmarkdown\n", file_string("example.Rmd"), "\n```", sep = "")

## 关键说明
- `results='asis'`：让R输出的内容直接被Markdown渲染器解析，而非当作普通文本
- `echo=FALSE`：隐藏读取文件的代码块本身，避免在最终输出中显示
- `rmarkdown`代码块语言：确保渲染器识别外部文档的RMarkdown语法，保留完整高亮效果
- 文件路径：确保`example.Rmd`与`main.Rmd`在同一目录，否则需指定完整文件路径

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