Amélioration du message en cas d'incompatibilité entre levels d'un facteur et données en base

R/get_data.R

@@ -151,7 +151,7 @@ importer_data <- function(table = NULL, schema = NULL, db  = "public", server =
           if(all(data[, i] %in% c(levs, NA, ""))) {
             data[, i] <- factor(as.character(data[, i]), levels = levs[levs != ""], ordered = ordered)
           } else {
-            message(glue::glue("Les levels du facteur {{i}} sont incompatibles avec les donnees en base, cette variable est importee avec le type character"))
+            message(paste0("Les levels du facteur ", i, " sont incompatibles avec les donnees en base, cette variable est importee avec le type character.\n"))
           }
 
         }