如何从RMarkdown（.Rmd）文件提取所有代码块并导出为纯R脚本？

我日常处理RMarkdown文档时，经常遇到需要把所有代码块导出成独立R脚本的需求，这里分享两种实用的方法，完全能满足你的需求：

方法一：使用knitr的purl()函数（推荐） #

knitr包本身就提供了专门提取代码块的工具，这是最稳妥、最省心的方式，官方支持不会出奇怪的格式问题。

操作步骤： #

1. 首先加载knitr包（如果没安装先运行install.packages("knitr")）
2. 调用purl()函数，指定你的Rmd文件路径和输出的R脚本路径：

# 安装（如果需要）
# install.packages("knitr")
library(knitr)

# 提取代码块到R脚本
purl("My_RMarkdown_Report.Rmd", output = "extracted_code.R")

说明： #

• 这个函数会自动提取所有R代码块的内容，包括像setup这样的隐藏块（即使代码块有include=FALSE选项也会提取）
• 如果某个代码块你不想提取，只需要在代码块选项里加上purl=FALSE，比如：````{r skip_this, purl=FALSE}`，这样该块就会被跳过
• 处理你提供的示例Rmd文件后，生成的R脚本完全符合你想要的结果：

knitr::opts_chunk$set(echo = TRUE)
a = 1
print(a)
summary(cars)
plot(pressure)

方法二：手动用正则表达式提取（适合小文件或自定义需求） #

如果你不想依赖knitr，或者需要更灵活的自定义提取规则，可以用正则表达式来匹配代码块。这里用stringr包来简化操作：

# 安装（如果需要）
# install.packages("stringr")
library(stringr)

# 读取Rmd文件内容
rmd_content <- readLines("My_RMarkdown_Report.Rmd")

# 匹配所有R代码块（从```{r ...}到```之间的内容）
code_blocks <- str_extract_all(rmd_content, "(?<=```\\{r.*\\}\\n).*?(?=\\n```)", dotall = TRUE)[[1]]

# 把提取的代码合并后写入R脚本
writeLines(unlist(code_blocks), "extracted_code_manual.R")

说明： #

• 这个方法适合简单的Rmd文件，对于嵌套代码块、特殊格式的代码块可能处理不够完善
• 正则表达式的作用是精准匹配R代码块的起始和结束标记，提取中间的代码内容

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