reading files with purrr

purrr.R

my_dir <- tempdir()
readr::write_csv(iris, file.path(my_dir, "iris1.csv"))
readr::write_csv(iris, file.path(my_dir, "iris2.csv"))
readr::write_csv(iris, file.path(my_dir, "iris3.csv"))
readr::write_csv(iris, file.path(my_dir, "iris4.csv"))

file_paths <- list.files(my_dir, pattern = "iris", full.names = TRUE)

# Force an error so safely() does something
file.remove(file.path(my_dir, "iris3.csv"))

library(purrr)
results <- file_paths %>% 
  set_names(basename(.)) %>% 
  map(safely(readr::read_csv))

data <- results %>% 
  map_df("result", .id = "File")
data

errors <- results %>% 
  map("error") %>% 
  compact()
errors