如何循环遍历多个列表以在R中创建数据帧？

Question

I need to create a loop for converting several list into dataframe, and then write each dataframe as csv. I mean, I want to (i) run a loop for unlist all my lists + convert them into data.frames, and (ii) write each list as CSV.

I ran the following scrip which works for one of my lists but I need to do the same for many of them.

Script to convert a nested list (eg, list1) in data frame, and write as CSV

data <- as.data.frame(t(do.call(rbind,unlist(list1,recursive = FALSE))))
write.csv(data,"list1.csv"))

Please note that "list1" is one of my list that I wrote as an example. I created an script ( done <- ls(pattern="list") ) to get a vector with the name of all my lists load in the R environment. So that, I should apply the step (i) and (ii) to all the names in the "done" vector. Was it clearer now?

I would really appreciate if you can help me to create the loop?

Answer 1

for(i in 1:nrow(done){
       list_name <- done[i]
       data <- as.data.frame(t(do.call(rbind,unlist(noquote(list_name),recursive = FALSE))))
       write.csv(data,paste0(list_name,".csv"))
}

Answer 2

fun <- function(x){
  data <- as.data.frame(t(do.call(rbind,unlist(paste0("list",x),recursive = FALSE))))
  write.csv(data,paste0("list",x,".csv"))
}

fun(1:n)

I believe this is the most efficient way.