如何将列表中的所有数据帧写入csv（保留列表名称）？

Question

我正在尝试将列表中的所有数据帧写入保存列表名称的csv中，我不确定自己在做什么错。这就是我正在尝试的here：

v1<-c(0:9)
v2<-c(10:19)
v3<-c(20:29)
v4<-c(30:39)
v5<-c(40:49)
v6<-c(50:59)

lista<- cbind(v1, v2, v3)
listb<- cbind(v4, v5, v6)
list<- list(lista, list)

for (i in seq_along(list)) {
filename = paste(names(list)[i], ".csv")
write.csv(data[[i]], filename)
}

但是我收到此错误Error in data[[i]] : object of type 'closure' is not subsettable。 我知道在购买之前我已经尝试了所有可以找到的东西。 非常感谢！