From bfe15271275f77bdc4899b8fc749af51e527c69d Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Mon, 3 Apr 2023 17:28:28 +0200
Subject: [PATCH] =?UTF-8?q?Am=C3=A9lioration=20du=20message=20en=20cas=20d?=
=?UTF-8?q?'incompatibilit=C3=A9=20entre=20levels=20d'un=20facteur=20et=20?=
=?UTF-8?q?donn=C3=A9es=20en=20base?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/get_data.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/get_data.R b/R/get_data.R
index b4fca0d..efc2590 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"))
}
}
--
GitLab