使用knitr::knit()转换Rmd文件时如何保留可执行代码块

方法一：自定义knitr钩子函数 #

通过设置knitr的钩子函数，可指定特定代码块在输出时保留完整可执行格式，并自动将eval选项设为TRUE。

1. 在file1.Rmd开头添加setup代码块，定义钩子逻辑：

knitr::knit_hooks$set(preserve_chunk = function(before, options, envir) {
  if (before) {
    # 输出完整代码块起始标记，强制设置eval=TRUE
    return(paste0("```r eval=TRUE, echo=TRUE\n"))
  } else {
    # 输出代码块结束标记
    return("\n```\n")
  }
})

2. 给需要保留完整格式的代码块添加preserve_chunk=TRUE标记：

# 示例代码
print("这段代码会完整出现在file2.Rmd中，且可直接执行")

运行knitr::knit("file1.Rmd", output = "file2.Rmd")后，该代码块会被输出为：

# 示例代码
print("这段代码会完整出现在file2.Rmd中，且可直接执行")

二次knitfile2.Rmd时即可直接运行这段代码。

方法二：结合全局选项与条件处理 #

若需批量处理代码块，可通过全局选项加条件判断实现：

1. 在setup代码块中定义全局规则：

knitr::opts_chunk$set(echo = TRUE)

knitr::knit_hooks$set(chunk = function(x, options) {
  if (!is.null(options$keep_executable)) {
    # 对标记的代码块输出完整可执行格式
    paste0("```r eval=TRUE, echo=TRUE\n", x, "\n```\n")
  } else {
    # 其他代码块按默认逻辑处理
    knitr::hook_chunk(x, options)
  }
})

2. 给目标代码块添加keep_executable=TRUE标记：

data <- mtcars[, c("mpg", "wt")]
summary(data)

注意事项 #

• 钩子函数会覆盖代码块默认输出逻辑，仅对需要保留的代码块添加标记，避免影响其他代码块的正常执行输出。
• 若原代码块有自定义选项（如fig.width），可在钩子函数中保留，例如修改起始标记为paste0("```r eval=TRUE, echo=TRUE, fig.width=", options$fig.width, "\n")。

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