r - 如何将 .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")