Ajout dans raw_data_2021.R d'un bloc pour charger les couches nouvell…

…ement créées dans le SGBD de la DREAL (#36) Mise à jour de la documentation à l'occasion des checks ou de repérage de coquilles
MaelTheuliere · Oct 20, 2021 · b66f037 · b66f037
1 parent 6049e28
commit b66f037
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 5 deletions.
diff --git a/data-raw/raw_data_2021.R b/data-raw/raw_data_2021.R
@@ -250,3 +250,16 @@ usethis::use_data(table_passage_com_historique,internal=F,overwrite = T)
 usethis::use_data(arn_plm,internal=F,overwrite = T)
 
 
+## Chargement des couches communes et table_passage_com_historique dans production.cogiter
+library(datalibaba)
+communes2 <- rowwise(communes) %>%
+  mutate(across(where(is.list), ~paste0(.x, collapse = ", ") %>% as.factor),
+         across(where(is.factor), as.character)) %>%
+  ungroup()
+poster_data(data = communes2, table = "r_communes_000", schema = "cogiter", pk = "DEPCOM", post_row_name = FALSE, droits_schema = TRUE, db = "production", overwrite = TRUE)
+poster_data(data = communes2, table = "r_communes_000_2021", schema = "cogiter", pk = "DEPCOM", post_row_name = FALSE, droits_schema = TRUE, db = "production", overwrite = TRUE)
+
+table_passage_com_historique2 <- table_passage_com_historique %>%
+  mutate(across(where(is.factor), as.character))
+poster_data(data = table_passage_com_historique2, table = "r_tb_passage_com_hist_000", schema = "cogiter", pk = "DEPCOM_HIST", post_row_name = FALSE, droits_schema = TRUE, db = "production", overwrite = TRUE)
+poster_data(data = table_passage_com_historique2, table = "r_tb_passage_com_hist_000_2021", schema = "cogiter", pk = "DEPCOM_HIST", post_row_name = FALSE, droits_schema = TRUE, db = "production", overwrite = TRUE)
diff --git a/man/communes_cog.Rd b/man/communes_cog.Rd
diff --git a/man/departements_geo_xx.Rd b/man/departements_geo_xx.Rd
diff --git a/man/regions_geo_xx.Rd b/man/regions_geo_xx.Rd
diff --git a/man/zonage_abc.Rd b/man/zonage_abc.Rd