假设您有以下名为“test.Rmd”的 .Rmd 文档:
This is a test.
```{r chunk1}
1:4
```
This is a further test.
```{r chunk2}
5:6
```
If 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"
等仅包含该块的代码。