bug fix get_data()

R/get_data.R

@@ -169,11 +169,15 @@ importer_data <- function(table = NULL, schema = NULL, db = "production", server
     }
   }
 
- # remettre le champ geometrie (au bon endroit)
- if(exists("data_sf")) {
+  # remettre le champ geometrie (au bon endroit)
+  if(exists("data_sf") & nrow(def_table) > 0) {
     sf::st_geometry(data) <- sf::st_geometry(data_sf)
     data <- dplyr::select(data, dplyr::all_of(defs$nms))
- }
+  }
+
+  if(exists("data_sf") & nrow(def_table) == 0) {
+    data <- data_sf
+  }
 
 # renommer avec les éventuels noms initiaux
   if(nrow(def_table) > 0) {