将R Markdown文件转换为纯R代码文件

R Markdown是一种结合了Markdown和R代码的文档格式，它允许用户在同一个文件中编写文本、嵌入R代码块以及生成可交互的数据分析报告。然而，有时候我们可能需要将R Markdown文件转换为纯R代码文件，以便在其他环境中运行和共享。在本文中，我将介绍如何将R Markdown文件快速转换为纯R代码文件。

首先，我们需要明确一点，R Markdown文件中的代码块是由三个反引号（`）包围的。代码块可以有不同的语言标识，例如R、Python等。要将R Markdown文件转换为纯R代码文件，我们需要提取出R代码块并保存到一个新的R文件中。

下面是一个示例的R Markdown文件（example.Rmd）：

# 这是一个R代码块
x <- 1:10
mean(x)

要将该R Markdown文件转换为纯R代码文件，我们可以使用R语言中的正则表达式来提取R代码块。下面是一个R函数，可以实现该功能：

convert_rmd_to_r <- function(rmd_file, r_file) {
  # 读取R Markdown文件
  rmd_content <- readLines(rmd_file)
  
  # 提取R代码块
  r_code <- grep("&