diff --git a/R/get_data.R b/R/get_data.R index 7ad7289f65e6d652071be2fa95705e0402c992af..d5af292e46ab036b9176b4a5ff716c6d553ac9cd 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__) }