# 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)