Comment enregistrer les résultats de pour boucle sur liste dans une nouvelle liste sous "i" nom de vecteur?

Question

J'ai le code suivant:

final_results <- list() 

myfunc <- function(v1) { 
    deparse(substitute(v1)) 
} 

for (i in mylist) { 

...calculations... 


tmp_results <- as.data.frame(cbind(effcrs,weights)) 
colnames(tmp_results) <- c('efficiency',names(inputs), 
        names(outputs)) # header 
rownames(tmp_results) <- namesDMU[,1] 

#Save to list 
name_in_list <- myfunc(i) 
dea_results[[name_in_list]] <- tmp_results 

} 

Les boucles code ci-dessus à travers une liste de trames de données. Je voudrais chaque résultat donné de la boucle à stocker dans une liste séparée sous le même nom que le fichier original obtenu à partir mylist ou i

J'ai essayé d'utiliser le deparse substitute. quand je l'applique à un élément individuel mylist il ressemble à ceci:

myfunc(standard_DEA$'2010-11-11') 
[1] "standard_DEA$\"2010-11-11\"" 

Je ne sais pas quel est le problème. À l'heure actuelle, il enregistre tout sous le nom de « i » et remplace tous les vecteurs de sorte que le résultat final est une liste de 1.

Nous vous remercions à l'avance

Answer 1

Cela ressemble vous voulez une boucle faire.

library(dplyr) 

function_which_returns_dataframe = function(i) { 

    ...calculations... 

    tmp_results <- as.data.frame(cbind(effcrs,weights)) 
    colnames(tmp_results) <- c('efficiency',names(inputs), 
        names(outputs)) # header 
    rownames(tmp_results) <- namesDMU[,1] 
    tmp_results 
} 


data_frame(mylist = mylist, 
      name = names(mylist)) %>% 
    group_by(mylist, name) %>% 
    do(function_which_returns_dataframe(.$mylist[[1]]))