r - 如何使用 Knitr 将 .Rmd 文件中的每个 block 提取到多个 .R 文件

Question

我们可以将 .Rmd 文件提取到 .R 文件，但是如何将 .Rmd 文件中的每个块提取到由块标记命名的 .R 文件中。

Answer 1

假设您有以下名为“test.Rmd”的 .Rmd 文档:

This is a test.

```{r chunk1}
1:4
```

This is a further test.

```{r chunk2}
5:6
```

如 purl -ed，你会得到以下信息:

## ----chunk1--------------------------------------------------------------
1:4


## ----chunk2--------------------------------------------------------------
5:6

您可以先使用 purl 将其放入单独的文件中，使用 read_chunk函数，然后将每个块写入单独的文件:

library("knitr")
p <- purl("test.Rmd")
read_chunk(p)
chunks <- knitr:::knit_code$get()
invisible(mapply(function(chunk, name) {
    writeLines(c(paste0("## ----",name,"----"), chunk), paste0("chunk-",name,".R"))
}, chunks, names(chunks)))
unlink(p) # delete the original purl script
knitr:::knit_code$restore() # remove chunks from current knitr session

这将为每个名为 "chunk-chunk1.R" 的块生成一个文件。 , "chunk-chunk2.R"等，只包含该块的代码。