在R

Question

我几天都在努力做一件简单的事情。我正在尝试用里面的“Hello World”编写50个.txt文件。不幸的是，我的所有循环只创建一个文本文件愿有人给我一些提示吗？

我在另一个主题中发现了这个循环，但我还是得到了一个错误：

for(i in 1:50) 
{ 
writeLines("Hello World", path = sprintf("file%s.txt", i))
}

Answer 1

以下是您的解决方案：

for(i in 1:50) { 

  # 1. File name
  fname <- sprintf("file_%s.txt", i)

  # 2. Create file connection
  fileConn <- file(fname)

  # 3. Write data
  writeLines("Hello World", fileConn)

  # 4. Close connection
  close(fileConn)
}

Answer 2

您也可以使用sink

for(i in 1:50) {

  sink(paste(i, "outfile.txt"))
  cat("Hello World")
  sink()

}

或者只使用cat：

for(i in 1:50) {

  cat("Hello World",file=paste(i, "outfile.txt"), sep="\n")

}