从循环输出数据时遇到错误

时间:2019-04-08 17:20:04

标签: r

我有一个似乎可以正常工作的循环代码,但是当我尝试将结果输出到csv文件中时,出现以下错误:file(file,ifelse(append,“ a”,“ w “)):无效的“打开”参数。

我已经编写了一个循环代码(之前已经工作过),该循环从文件夹中获取数据集,执行计算并将这些计算结果放入新列中,然后将包含新列的数据集输出到另一个文件夹中。但是,R在尝试在循环结束时将输出放入新文件夹时遇到问题,给我以下错误,file(file,ifelse(append,“ a”,“ w”))中的错误:无效“开放”论点。

setwd("/Users/Desktop/Snail/CSVs/CSV 2")


files = list.files()

summary = NULL

for (f in files) {
  data = read.csv(f, sep = ',',header=T)
  data2<-prepData(data,type="UTM",coordNames=c("x","y"))
  sub = cbind(f,data2)
  summary = rbind(summary,sub)
  myfile = file.path("/Users/Desktop/CSV 3",".csv")
  write.table(summary[[f]], file=myfile , paste(names(summary)[f],".csv",sep=","))
}

我希望在新文件夹中获取包含新计算结果的文件。

1 个答案:

答案 0 :(得分:0)

您对append=的调用是将我认为应该是您的文件名的内容显式传递到for (f in files) { data = read.csv(f, sep = ',',header=T) data2<-prepData(data,type="UTM",coordNames=c("x","y")) sub = cbind(f,data2) summary = rbind(summary,sub) myfile = file.path("/Users/Desktop/CSV 3", paste(names(summary)[f],".csv",sep=",")) write.table(summary[[f]], file=myfile) } 参数中。试试这个:

openSSL