Erhalte den Namen eines Listeneintrags, der mit purrr :: map erstellt wurde

Question

Ich habe eine Liste von csv-Dateien mit purrr :: map abgerufen und eine große Liste bekommen.

csv_files <- list.files(path = data_path, pattern = '\\.csv$', full.names = TRUE) 
    all_csv <- purrr::map(csv_files, readr::read_csv2) 
    names(all_csv) <- gsub(data_path, "", csv_files) 
    return all_csv 

EDITED wie durch @Spacedman vorgeschlagen

I weiter jedes Tibble/Datenrahmen separat innerhalb der process_csv_data Funktion verarbeiten müssen.

purrr::map(all_csv, process_csv_data) 

Wie wird der Name eines einzelnen Elements in der großen Liste ohne for-Schleife abgerufen?

Answer 1

Verwenden map2, wie in diesem Beispiel reproduzierbaren:

> L = list(a=1:10, b=1:5, c=1:6) 
> map2(L, names(L), function(x,y){message("x is ",x," y is ",y)}) 
x is 12345678910 y is a 
x is 12345 y is b 
x is 123456 y is c 

die Ausgabe der Liste als x in der Funktion wird es ein wenig von munged message, aber das das Listenelement von L.

Answer 2

Sie können die Vorteile von purrr nutzen, um alle Daten in einem einzigen verschachtelten Teil zu speichern. Auf diese Weise jede csv und verarbeitet csv direkt mit dem entsprechenden csv-Namen verbunden bleiben:

csv_files <- list.files(path = data_path, pattern = '\\.csv$', full.names = TRUE) 

all_csv <- tibble(csv_files) %>% 
    mutate(data = map(csv_files, read_csv2), 
    processed = map(data, process_csv_data), 
    csv_files = gsub(data_path, "", csv_files)) %>% 
    select(-data)