将R源代码保存在循环中

Question

我想在循环中编写几个R源代码。但是我没有得到一个功能性的源文件。这就是我的尝试：

for(k in 1:10){
    cod <- 'x <- 1+k
         nam <- paste0(x, ".txt")
         write.table(x, nam)'
    cod <- gsub("x", k, cod)
    file <- paste0("source", k, ".R")
    dput(cod, file=file)}

严格地说，我想在10个源代码中得到cod对象中的代码（由k区分，从1到10）。实际上这个代码产生了所有10个文件，但是它们包含奇怪的字符并且根本不起作用。

Answer 1

尝试从put修改writeLines，也改变你的字符串格式如下：

for(k in 1:10) {
  cod <- 'x <- 1+k\nnam <- paste0(x, ".txt")\nwrite.table(x, nam)'
  cod <- gsub("x", k, cod)
  file <- paste0("source", k, ".R");
  writeLines(cod, file)
}