R/dtbases_infos.R

In INESSS-QC/admissibilite1: Admissibilité des individus

#' Admin
#'
#' Information sur les bases de données utilisées par la fonction `import_struct()`. Permettra à la fonction `verif_source()` d'indiquer si elles sont correctes (utilisables).
#'
#' @keywords internal
#' @export
dtbases_infos <- function () {

  databases <- c("prior", "rpam", "rqam")
  database_info <- vector("list", length(databases))
  names(database_info) <- databases

  for (dtbase in databases) {
    database_info[[dtbase]] <- rbindlist(lapply(
      list.files(paste0(database_dir(), toupper(dtbase))),
      function (file) {
        return(data.table(
          Name = file,
          Size = file.info(paste0(database_dir(), toupper(dtbase), "/", file))$size,
          Date = file.info(paste0(database_dir(), toupper(dtbase), "/", file))$mtime
        ))
      }
    ))
  }
  return(database_info)

}