如何将.Rnw转换为R脚本

Question

我想用R编程从RNW中提取所有的块，并将它们放在一个单独的文件中

我有一个很长的rnw文件，手动做起来会很乏味。

有没有一个函数或脚本可以做到这一点呢？

Answer 1

您可以执行一些正则表达式匹配来检索所有代码块，如下所示：

#read my Rnw file
l <- readLines("myRnw.Rnw")

#find starting and ending lines of my code chunks
startIdx <- which(grepl("^<<", l))
endIdx <- which(grepl("^@$", l))

#extract all code chunks and save to a file
writeLines(unlist(Map(function(st, ed) l[(st+1):(ed-1)], startIdx, endIdx)),
    "myRcode.R")