如何从RMarkdown (.Rmd)文件中提取所有代码？

Question

如何从RMarkdown (.Rmd)文件中提取所有代码(块)并将它们转储到普通的R脚本中？

基本上，我想做这个问题中描述的互补操作，它使用块选项只提取Rmd的文本(即非代码)部分。

因此，具体来说，我想从一个Rmd文件开始，如下所示

---
title: "My RMarkdown Report"
author: "John Appleseed"
date: "19/02/2022"
output: html_document
---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

## R Markdown

Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents.   
For more details on using R Markdown see <http://rmarkdown.rstudio.com>.  

Some text description here. 

```{r cars}

A=1

打印(A)

摘要(Cars)

## Including Plots

You can also embed plots, for example:

```{r pressure, echo=FALSE}

绘图(压力)

Some more comments here.

对于只包含上述代码部分的R脚本，如下所示：

knitr::opts_chunk$set(echo = TRUE)

a = 1
print(a)
summary(cars)

plot(pressure)

Answer 1

您可以使用knitr::purl，请参阅将Markdown转换为R脚本：

knitr::purl(input = "Report.Rmd", output = "Report.R",documentation = 0)

给出Report.R

knitr::opts_chunk$set(echo = TRUE)

a = 1
print(a)
summary(cars)

plot(pressure)

Answer 2

另一种方法是在您的purl中设置Rmd挂钩。

```{r setup, include=FALSE}

knitr::knit_hooks$set(purl = knitr::hook_purl)

knitr::opts_chunk$set(echo =真)

然后，当您编织时生成R脚本。您可以使用块选项purl = FALSE排除一些块。