bug fix post_data(), la fonction renvoie désormais une erreur si l'un des...

bug fix post_data(), la fonction renvoie désormais une erreur si l'un des champs de la table à poster est de type liste

R/get_data.R

@@ -135,7 +135,7 @@ importer_data <- function(table = NULL, schema = NULL, db = "production", server
   # récupérer les autres propriétés initiales du dataset
   if(nrow(def_table) > 0) {
 
-    ## assign types
+    ## assign types  i <- names(data)[2]
     for (i in names(data)) {
       att <- defs[defs$nms == i, ]
       if (length(att[, 1]) == 0) {

R/post_data.R

@@ -162,6 +162,10 @@ poster_data <- function(data = NULL,
   types <- unlist(lapply(d, function(x) {
     class(x)[1]
   }))
+
+  # le type liste n'est pas géré :
+  attempt::stop_if(any(grepl("list", types)), isTRUE(), msg = "Le type 'list' n'est pas g'\u00e9r\u00e9.\nveuillez convertir les champs concern\u00e9 en texte.")
+
   ## modular handling of different data type attributes (add new below)
   ### gerer les attributs temporels
   attr2 <- lapply(d[1, ], function(x) {