Сохранение файлов в формате CSV с использованием циклов в R

Question

У меня есть набор кодов, которые я хочу запустить на нескольких файлах, чтобы сделать это, я использовал следующий цикл

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

здесь я помещаю свой код, который приводит к набору данных с именем "counttedclusters", затем я добавляю его, чтобы попытаться сохранить файлы по мере их создания, но при этом сохранить имена исходных файлов

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

вместо сохранения файлов в папке "done" я получаю эту ошибку:

Ошибка в файле if (file == "")<- stdout () else if (is.character (file)) {: отсутствует значение, где требуется TRUE / FALSE

не уверен, что я делаю не так, любая помощь будет здорово, спасибо

Вот обновление с примером кода (мой фактический код слишком длинный)

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/")
}

что должно произойти, это то, что я получаю файлы (имена которых основаны на оригинальных именах файлов, найденных в папке "Интерес"), сохраненных в готовой папке с новым столбцом под названием "новый столбец со значением"102"

вместо этого я получаю эту ошибку:

Ошибка в файле if (file == "")<- stdout () else if (is.character (file)) {: отсутствует значение, где требуется TRUE / FALSE