如何更高效复用大量R代码块？

直接用循环结合knitr::asis_output()就能搞定，关键是要在正确的代码块设置下执行：

步骤1：提前定义要复用的代码块标签集合 #

先把所有需要复用的代码块标签放到一个向量里，比如你要复用100个，直接生成序列即可：

chunk_labels <- paste0("a-chunk-not-in-my-example-", 1:100)

步骤2：用循环批量生成Tab结构和代码块调用 #

在主文档里加一个设置results='asis'的代码块，循环输出Tab标题和代码块引用：

```{r batch-reuse-chunks, echo=FALSE, results='asis'}
# 输出最外层的Tab容器标题
cat("# Reusing Code Chunks {.tabset .tabset-pills}\n\n")

# 循环处理每个代码块
for (idx in seq_along(chunk_labels)) {
  # 输出子模型标题
  cat(sprintf("## %dth model\n\n", idx))
  # 生成代码块引用的Markdown语法
  chunk_code <- sprintf("```{r, ref.label='%s'}\n```\n\n", chunk_labels[idx])
  # 让knitr解析这段Markdown
  knitr::asis_output(chunk_code)
}

### 为什么之前的方法没生效？
- 用`knit_child()`时，要确保子文档里的代码块能被正确识别，并且主文档要设置`results='asis'`来输出子文档的内容；
- `asis_output()`必须在设置了`results='asis'`的代码块里使用，否则knitr不会把输出当成Markdown解析，只会当成普通文本显示。

### 额外注意
确保所有`a-chunk-not-in-my-example-1`到`a-chunk-not-in-my-example-100`这些代码块已经被定义——可以直接写在当前文档里，也可以用`knitr::read_chunk("你的子文档路径.R")`从外部导入。

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