R/verif_source.R

In INESSS-QC/admissibilite1: Admissibilité des individus

#' Vérifications
#'
#' Indique par *OK* en vert ou *ERREUR* en rouge si on peut utiliser la fonction `import_struct()`.
#'
#' @export
verif_source <- function () {

  actual <- dtbases_infos()
  for (tab in names(actual)) {
    result <- compare(actual[[tab]], database_info[[tab]])
    if (all(result$detailedResult)) {
      message(toupper(tab), " : ", green("OK"))
    } else {
      message(toupper(tab), " : ", red("ERREUR"))
    }
  }

}