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