dir.create("Data/IntermediateData", showWarnings = FALSE, recursive = TRUE)

loader_file <- file.path(
  "Scripts",
  "DataAppendixScripts",
  "cache_loader.R"
)

writeLines(
  c(
    "cache_load_existing <- function(",
    "  envir = parent.frame(),",
    "  dir = \"Data/IntermediateData\"",
    ") {",
    "  if (!dir.exists(dir)) return(invisible(character()))",
    "",
    "  files <- list.files(dir, pattern = \"\\\\.rds$\", full.names = TRUE)",
    "",
    "  if (!length(files)) return(invisible(character()))",
    "",
    "  nms <- tools::file_path_sans_ext(basename(files))",
    "  objs <- lapply(files, readRDS)",
    "  names(objs) <- nms",
    "  list2env(objs, envir = envir)",
    "",
    "  invisible(nms)",
    "}"
  ),
  con = loader_file
)