Ошибка при выводе данных из цикла

Question

У меня есть код для цикла, который, кажется, в основном работает, но когда я пытаюсь вывести результаты в файл csv, я получаю следующую ошибку: Ошибка в файле (file, ifelse (append, "a", "w")): неверный аргумент 'open'.

Я написал код для цикла (который работал раньше), который берет набор данных из папки, выполняет вычисления и помещает эти вычисления в новые столбцы, а затемвыводит набор данных с новыми столбцами в другую папку.Тем не менее, R сталкивается с проблемой при попытке поместить вывод в новую папку в конце цикла, давая мне следующую ошибку, Ошибка в файле (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=","))
}

Я надеюсь получить файл с новыми вычислениями в новой папке.

Answer 1

Ваш вызов write.table явно передает то, что, как я считаю, должно быть вашим именем файла, в аргумент 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)
}