有没有办法在几个 R 脚本中自动更改一行？

Question

我有 50 个 R 脚本，我需要为所有这些脚本更改同一行。有没有办法同时完成所有这些，而不是使用“查找”和“替换”一个一个？

Answer 1

遍历文件，逐行读取（readLines 给出一个字符向量），然后更新第 N 行，并输出到新文件：

lapply(list.files(path = ".", pattern = "*.R", full.names = TRUE),
       function(i){
         x <- readLines(i)
         # if we want for example change the 6th row:
         x[ 6 ] <- "# MY NEW LINES"
         # then write output
         write(x, file = paste0("myCleanOutput/folder/path/", basename(i)))
       })

---

但是，如果所有 R 脚本都相同，则可能使用 Passing command line arguments to R CMD BATCH 并且只有 1 个带参数的 Rscript 文件。