输出函数导致r中的多个文件？

Question

我正在尝试在目录中的一批文件上运行一个函数，如何将每个输出写入根据其来源命名的文件？ E.g：

files <- dir(pattern="*.csv")

for (i in 1:length(files)){
  dat<-reformat.funct(files[i])
  write.csv(dat, "???.reform.csv")
}

我想替换“???”以上是“文件”中的第i个文件名。 关于更有效的方法的建议也欢迎（对于超过一行的脚本）。

谢谢。

Answer 1

给出files：

 out.files <- gsub("\\.csv$", ".reform.csv", files)