如何将.Rnw转换为R脚本

Question

我想用RN编程从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")