From 147b9b2553c306f8adcd35413be9aa4b8bf97c6b Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Wed, 29 Sep 2021 19:36:22 +0200
Subject: [PATCH] bug fix get_data()
---
R/get_data.R | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/R/get_data.R b/R/get_data.R
index 9e96022..27b0c46 100644
--- a/R/get_data.R
+++ b/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) {
--
GitLab