From 778737cbe4a4dcdd59f254d3491acc75d7d06024 Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Wed, 29 Sep 2021 16:25:59 +0200
Subject: [PATCH] Ajout commentaires dans get_data()
---
R/get_data.R | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/R/get_data.R b/R/get_data.R
index 7ad7289..d5af292 100644
--- a/R/get_data.R
+++ b/R/get_data.R
@@ -88,6 +88,7 @@ importer_data <- function(table = NULL, schema = NULL, db = "production", server
# on recupere la liste des noms de champs de la table et leurs caracteristiques
champs <- rpostgis::dbTableInfo(conn = con, name = c(schema, table), allinfo = FALSE)
+ # recupere-t-on des proprietes de dataframe R dans zz_r_df_def ?
if(DBI::dbExistsTable(conn = con, name = c(schema, "zz_r_df_def"))) {
def_table <- DBI::dbReadTable(con, c(schema, "zz_r_df_def")) %>%
dplyr::filter(.data$table_nm == table)
@@ -107,10 +108,10 @@ importer_data <- function(table = NULL, schema = NULL, db = "production", server
}
# on distingue 3 cas : table geo, table de donnees chargee avec poster_data(), table de donnees chargees autrement
- if(any(grepl("USER-DEFINED", champs$data_type))) {
+ if(any(grepl("USER-DEFINED", champs$data_type))) { # la signature des champs de geometry
data_sf <- sf::st_read(dsn = con, layer = c(schema, table))
- if ("id_row__" %in% champs$column_name) {
+ if ("id_row__" %in% champs$column_name) { # on enleve le champ de cle primaire eventuellement cree
data_sf <- dplyr::arrange(.data = data_sf, .data$id_row__) %>%
dplyr::select(-.data$id_row__)
}
--
GitLab