# This is accompanying code for
# https://jozef.io/r005-import-csvs/

data_dir <- path.expand("data/r005/ie-general-referrals-by-hospital")
filePaths <- list.files(data_dir, "\\.csv$", full.names = TRUE)

library(data.table)

result <- lapply(filePaths, fread)
names(result) <- filePaths
result <- rbindlist(result, use.names = TRUE, idcol = "source")
result[, Month_Year := as.Date(
  paste0(sub("-20", "-", Month_Year, fixed = TRUE), "-01"),
  format = "%b-%y-%d"
)]

q(save = "no", status = 0)