使用R

Question

我想在多个文件上运行一组代码来执行此操作我使用了以下循环

setwd("~/folderofinterest")
cluster <- list.files(pattern = "*.csv$")
for(i in 1:length(cluster)){

这里是我放入代码的地方，这会产生一个名为＆＃34; countsclusters＆＃34;的数据集。 然后我添加它来尝试保存文件，因为它们被创建但仍保留原始文件的名称

setwd("~/folderofinterest/done")
write.csv (countedclusters, file=cluster[i], quote = FALSE, row.names = FALSE)
setwd("~/Desktop/cluster/")
}

而不是将文件保存到＆＃34;完成＆＃34;文件夹我收到此错误：

  

if（file ==＆＃34;＆＃34;）file＆lt; - stdout（）else if（is.character（file））出错   {：缺少需要TRUE / FALSE的值

不确定我做错了什么，任何帮助都会很棒，thx

以下是带示例代码的更新（我的实际代码是长）

setwd("~/Desktop/folderofinterest/")
cluster <- list.files(pattern = "*.csv$")
for(i in 1:length(cluster)){
DS1 <- read.csv(file = cluster[i], header = TRUE, stringsAsFactors = TRUE)
X=1
Y=2
for(i in 1:100){
Y=X+Y
}
DS1$newcolumn<-Y
countedclusters<-DS1
setwd("~/Desktop/folderofinterest/done")
write.csv (countedclusters, file=cluster[i], quote = FALSE, row.names = FALSE)
setwd("~/Desktop/folderofinterest/")
}

应该发生的是我获取保存在done文件夹中的文件（基于在folderofInterest中找到的原始文件名称命名），其中包含名为＆＃34; newcolumn的新列，其值为＆＃34; 102＆＃34;

而是我收到此错误：

  

if（file ==＆＃34;＆＃34;）file＆lt; - stdout（）else if（is.character（file））出错   {：缺少需要TRUE / FALSE的值