Exportation d'une structure de liste vers une structure de dossiers

Question

J'ai une liste 'list_export' avec deux sous-listes 'list_plots' et 'list_tables', contenant respectivement ggplots et des trames de données.

list_plots <- list(plot1, plot2, plot3) 
list_tables <- list(table1, table2, table3) 
list_export <- list(list_plots, list_tables) 

Je voudrais exporter la structure arborescente de la liste dans une structure de dossiers avec le type de données correctes, telles que:

list_export/list_plots/plots[1-3].png 
list_export/list_tables/tables[1-3].csv 

Est-il possible d'exporter la structure de la liste directement aux dossiers? Il aimerait appliquer les solutions aux niveaux n, pas seulement 2.

Answer 1

Rien de ce qui pourrait faire quelque chose comme ça. Vous pourriez créer une fonction qui pourrait aider. Peut-être quelque chose comme ça

savers <- list(
    "ggplot" = function(pp, base) ggsave(filename=paste0(base,".png"), plot=pp), 
    "data.frame" = function(dd, base) write.table(dd, file=paste0(base,".txt")) 
) 

save_list <- function(x, prefix=deparse(substitute(x)), savers=savers) { 
    ids = as.character(if(!is.null(names(x))) {names(x)} else {seq_along(x)}) 
    ids[nchar(ids)<1] <- as.character(seq_along(x)[nchar(ids)<1]) 
    ret <- Map(function(x, id) { 
    found <- FALSE 
    for(type in names(savers)) { 
     if(inherits(x, type)) { 
      found <- TRUE 
      ret <- savers[[type]](x, file.path(prefix, id)) 
      return(ret) 
     } 
    } 
    if (!found) { 
     if (class(x)=="list") { 
      save_list(x, file.path(prefix, id), savers=savers) 
     } else { 
      stop(paste("unable to save object of type:", class(x))) 
     } 
    } 
    }, x, ids) 
    invisible(ret) 
} 

Ici, je créer une liste de savers qui se penchent sur les différents types d'objets et de les écrire sur le disque. Puis, avec une liste d'exemples

plot_list <- Map(function(x) ggplot(mtcars) + geom_point(aes(cyl, disp)) + ggtitle(x), paste("plot", 1:3)) 
data_list <- replicate(4, data.frame(x=runif(10), y=rnorm(10)), simplify=FALSE) 
x <- list(plot_list=plot_list, data_list=data_list) 

Je peux les écrire avec

save_list(x) 

Notez que vous avez vraiment besoin d'une liste nommée afin de déterminer les noms de fichiers plus tard. Ici, je nomme explicitement les éléments de x mais s'ils ne sont pas présents, une indexation simple sera utilisée. Vous pouvez également échanger les fonctions d'enregistrement pour voir ce qui serait écrit en imprimant simplement la valeur à l'écran.

noop <- list(
    "ggplot" = function(pp, fn) print(paste(paste0(fn,".png"),"(plot)")), 
    "data.frame" = function(dd, fn) print(paste(paste0(fn,".txt"), "(df)")) 
) 
save_list(x, savers=noop) 
# [1] "x/plot_list/plot 1.png (plot)" 
# [1] "x/plot_list/plot 2.png (plot)" 
# [1] "x/plot_list/plot 3.png (plot)" 
# [1] "x/data_list/1.txt (df)" 
# [1] "x/data_list/2.txt (df)" 
# [1] "x/data_list/3.txt (df)" 
# [1] "x/data_list/4.txt (df)" 

Notez que cela suppose que le répertoire existe déjà. Si vous devez d'abord vérifier, voyez this question pour des solutions possibles.