遍历表列表并在R中写入csv

Question

好人，我有一些表的清单，我想用CSV的唯一名称编写每个表。我已经尝试过这种方法，但是它不起作用，

diff<- c(1,2,3,4)

for (i in 1:length(diff)){

  write.table(1+1, "test.csv")

}

这是表的列表，我的预期输出是将该列表中的每个表写入CSV并用不同的名称保存。