# This is accompanying code for # https://jozef.io/r005-import-csvs/ data_dir <- path.expand("data/r005/ie-general-referrals-by-hospital") library(dplyr) library(fs) library(readr) library(purrr) library(lubridate) result <- data_dir %>% dir_ls(regexp = "\\.csv$") %>% map_dfr(read_csv, .id = "source") %>% mutate(Month_Year = myd(Month_Year, truncated = 1)) q(save = "no", status = 0)