R/database_dir.R

In INESSS-QC/admissibilite1: Admissibilité des individus

#' Répertoire
#'
#' Détermine le répertoire de l'utilisateur où est stocké les tables d'admissibilité
#'
#' @param database "RPAM" ou "RQAM".
#'
#' @keywords internal
#' @export
database_dir <- function () {
  ### Différents utilisateurs n'ont pas le même répertoire pour le V:
  ###   - V:/_Tables_Admissibilite_Agregees
  ###   - V:/GI-Data/_Tables_Admissibilite_Agregees
  ### La fonction va déterminer quel répertoire utiliser

  dir <- NULL
  if (length(list.files("V:/_Tables_Admissibilite_Agregees"))) {
    dir <- "V:/_Tables_Admissibilite_Agregees/"
  } else if (length(list.files("V:/GI-Data/_Tables_Admissibilite_Agregees"))) {
    dir <- "V:/GI-Data/_Tables_Admissibilite_Agregees/"
  }
  if (is.null(dir)) {
    return(NULL)
  } else {
    return(paste0(dir))
  }

}