From a2f0f0fa1b4a7465e4bde7a40b3c82ac06ed600d Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Wed, 29 Jun 2022 19:30:59 +0200
Subject: [PATCH] =?UTF-8?q?bux=20fix=20nom=20champ=20geo=20conforme=20?=
=?UTF-8?q?=C3=A0=20l'original=20avec=20importer=5Fdata()=20-=20pour=20de?=
=?UTF-8?q?=20bon?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/get_data.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/get_data.R b/R/get_data.R
index cd665ea..04b4be6 100644
--- a/R/get_data.R
+++ b/R/get_data.R
@@ -173,8 +173,9 @@ importer_data <- function(table = NULL, schema = NULL, db = "public", server =
if(exists("data_sf") & nrow(def_table) > 0) {
sf::st_geometry(data) <- sf::st_geometry(data_sf)
# renommage du champ geo a l'identique
+ sf_col_name <- attributes(data_sf)$sf_column
data <- dplyr::rename_with(data, ~gsub("^geometry$", sf_col_name, .x))
- sf::st_geometry(data) <- attributes(data_sf)$sf_column
+ sf::st_geometry(data) <- sf_col_name
data <- dplyr::relocate(data, dplyr::all_of(defs$nms))
}
--
GitLab