将Rmarkdown (.Rmd)文件拆分为多个文件(.Rmd)

Question

我制作了一个大的Rmarkdown (.Rmd)文件，其中只包含了R代码块。我想知道是否有一种方法可以为每个块自动生成(.Rmd)文件，或者是否必须为我拥有的每个块(超过200个块)手动创建一个(.Rmd)文件。

假设我有这个(.Rmd)文件：

---
title: "Untitled"
output: html_document
date: '2022-08-13'
---

R标记

``{r cars}
summary(cars)
``

包括地块

``{r pressure, echo=FALSE}
plot(pressure)
``

是否有一种方法可以自动生成一个(.Rmd)文件，用于查克r cars，另一个用于块r压力。

提前谢谢。

Answer 1

一个可能的解决方案是使用包parsemd。

library(parsermd)

rmd <- parse_rmd("x.Rmd")

rlabels <- c("cars", "pressure")

yaml <- rmd_select(rmd, has_type("rmd_yaml_list"))

for (i in rlabels)
{
  rchunk <- rmd_select(rmd, all_of(i)) 
  sink(paste0(i, ".Rmd"))
  cat(as_document(yaml), sep = "\n")
  cat(as_document(rchunk), sep = "\n")
  sink()  
}