diff --git a/R/get_data.R b/R/get_data.R index b4fca0d6add6913bd08b1356163e1ad7fb75c630..efc2590916481c8286861a86ac32e3e401942833 100644 --- a/R/get_data.R +++ b/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")) } }