library(readr) library(purrr) filenames <- dir(path = "data/clean", pattern = "*.csv", full.names = TRUE) data <- filenames %>% map_dfr(read_csv, .id = "congress")