fix temporaire du pb post_dico_attribut

ANCT/QPV.Rmd

@@ -190,7 +190,7 @@ map(.x = tab_qpv, .f = ~poster_data(data = qpv_com, table = .x, schema = schema_
                                     db = "production", overwrite = TRUE, user = "does"))
 # commentaire de la table
 comment_qpv <- paste0("Table nationale des Quartiers Prioritaires de la Ville (QPV) constituée à partir des données ANCT publiées sur https://www.data.gouv.fr/fr/datasets/quartiers-prioritaires-de-la-politique-de-la-ville-qpv/")
-map(.x = tab_qpv, .f = ~commenter_table(comment = comment_qpv, table = .x, schema = schema_zh, db = "production", user = "does"))
+map(.x = tab_qpv, .f = ~commenter_table(comment = comment_qpv, table = .x, schema = schema_zh, db = "production", user = "does", ecoSQL = FALSE))
 ```
 
 

OPAH/workflow_opah.Rmd

@@ -525,8 +525,8 @@ dico_attr_opah <- tribble(
   "the_geom", "Périmètre d'application opérationel de l'OPAH."
 )
 
-post_dico_attr(dico = dico_attr_opah, table = "n_opah_zope_r52", schema = schemaZh, db = "production", user = "does")
-post_dico_attr(dico = dico_attr_opah, table = paste0("n_opah_zope_", params$annee, "_r52"), schema = schemaZh, db = "production", user = "does")
+post_dico_attr(dico = dico_attr_opah, table = "n_opah_zope_r52", schema = schemaZh, db = "production", user = "does", ecoSQL = FALSE)
+post_dico_attr(dico = dico_attr_opah, table = paste0("n_opah_zope_", params$annee, "_r52"), schema = schemaZh, db = "production", user = "does", ecoSQL = FALSE)
 
 ```
 ## Création d'une table de synthèse communale sur les OPAH
@@ -637,8 +637,8 @@ dico_attr_covadis <- tribble(
   'id_map',	'Identifiant technique à rajouter pour un stockage de la table en GéoBASE'
 )
  
-post_dico_attr(dico = dico_attr_covadis, table = table, schema = schemaZh, db = "production", user = "does")
-post_dico_attr(dico = dico_attr_covadis, table = table_mil, schema = schemaZh, db = "production", user = "does")
+post_dico_attr(dico = dico_attr_covadis, table = table, schema = schemaZh, db = "production", user = "does", ecoSQL = FALSE)
+post_dico_attr(dico = dico_attr_covadis, table = table_mil, schema = schemaZh, db = "production", user = "does", ecoSQL = FALSE)
 
 save.image("OPAH.RData")
 

OTELO/integration_OTELO.Rmd

@@ -205,10 +205,10 @@ dic_var_epci <- tribble(
   "besoins_hyp_haute", paste0("Hypothèse haute de l'estimation OTELO des besoins annuels en logements (millésime ", params$mil_otelo, ")")
 ) 
 
-post_dico_attr(dico = dic_var_epci, table = tab_otelo_epci$aj, 
+post_dico_attr(dico = dic_var_epci, table = tab_otelo_epci$aj, ecoSQL = FALSE, 
                schema = "sial_zonages_habitat", db = "production", user = "does")
 
-post_dico_attr(dico = dic_var_epci, table = tab_otelo_epci$mil, 
+post_dico_attr(dico = dic_var_epci, table = tab_otelo_epci$mil, ecoSQL = FALSE, 
                 schema = "sial_zonages_habitat", db = "production", user = "does")
 
 ```
@@ -270,10 +270,10 @@ dic_var <- tribble(
   "the_geom", paste0("Géométrie de la zone OTELO constituée par aggrégation des contours simplifiés des EPCI ", params$mil_otelo, ".")
   ) 
 
-post_dico_attr(dico = dic_var, table = tab_otelo$aj, 
+post_dico_attr(dico = dic_var, table = tab_otelo$aj, ecoSQL = FALSE, 
                schema = "sial_zonages_habitat", db = "production", user = "does")
 
-post_dico_attr(dico = dic_var, table = tab_otelo$mil, 
+post_dico_attr(dico = dic_var, table = tab_otelo$mil, ecoSQL = FALSE, 
                 schema = "sial_zonages_habitat", db = "production", user = "does")
 
 ```

PDL123/workflow_pdl123_pdl.Rmd

@@ -5,7 +5,7 @@ date: "`r format(Sys.Date(), '%d/%m/%Y')`"
 output: html_document
 params:
   annee: "2024"
-  sgbd: TRUE
+  sgbd: FALSE
 ---
 
 ```{r setup, include=FALSE, message = FALSE}
@@ -222,7 +222,7 @@ dic_var <- tribble(
   der_pdl123, "Libellé du zonage PDL123 le plus récent et applicale aujourd'hui. Il définit la tension du marché et les priorités de développement de l’offre locative sociale, allant du secteur détendu (zone PDL3) au secteur plus tendu et prioritaire (PDL1). Il engendre des aides différentes selon la classe. Il est révisé tous les 3 ans au regard des indicateurs suivants : besoins en logements, tension du marché du logement, politiques locales de l’habitat dont les communes SRU.")
 
 
-map(.x = tab_pdl, .f = ~ post_dico_attr(dico = dic_var, table = .x,  schema = "sial_zonages_habitat", db = "production", user = "does"))
+map(.x = tab_pdl, .f = ~ post_dico_attr(dico = dic_var, table = .x,  schema = "sial_zonages_habitat", db = "production", user = "does", ecoSQL = FALSE))
 
 
 ```

PIG/workflow_pig.Rmd

@@ -365,8 +365,8 @@ dico_var <- tribble(
   "ref_convention", "r\u00e9f\u00e9rence (lien URL ou local) vers le fichier num\u00e9rique contenant la convention du PIG (vide)",
   "id_map", "identifiant technique stockage de la table en G\u00e9oBASE")
 
-post_dico_attr(dico = dico_var, table = "n_pig_zsup_r52", schema = "sial_zonages_habitat", db = "production", user = "does")
-post_dico_attr(dico = dico_var, table = table_mil, schema = "sial_zonages_habitat", db = "production", user = "does")
+post_dico_attr(dico = dico_var, table = "n_pig_zsup_r52", schema = "sial_zonages_habitat", db = "production", user = "does", ecoSQL = FALSE)
+post_dico_attr(dico = dico_var, table = table_mil, schema = "sial_zonages_habitat", db = "production", user = "does", ecoSQL = FALSE)
 
 save.image("PIG.RData")
 ```

PLH/integration_PLH.Rmd

@@ -249,7 +249,7 @@ dic_var <- tribble(
   "the_geom",  paste0("géométrie de l EPCI (contours de ", params$annee, ")")
   ) 
 
-map(.x = tab_plh, .f = ~ post_dico_attr(dic_var, table = .x, schema = "sial_zonages_habitat", db = "production", user = "does"))
+map(.x = tab_plh, .f = ~ post_dico_attr(dic_var, table = .x, schema = "sial_zonages_habitat", db = "production", user = "does", ecoSQL = FALSE))
 
 ```
 

ref_dgaln/Delegataires.Rmd

@@ -203,7 +203,7 @@ dico_var <- tribble(
   "id_dele", "Identifiant de l'organisme délégataire des aides à la pierre",
   "dele_nom", "Nom de l'organisme délégataire des aides à la pierre",
 )
-map(.x = tbl_deleg, .f = ~post_dico_attr(dico = dico_var, table = .x, schema = schema_zh, db = "production", user = "does"))
+map(.x = tbl_deleg, .f = ~post_dico_attr(dico = dico_var, table = .x, schema = schema_zh, db = "production", user = "does", ecoSQL = FALSE))
 
 
 ```
@@ -216,7 +216,7 @@ poster_data(data = comm_deleg %>% rename(id_dele = gest_code, dele_nom = gest_no
 cmtr_com <- c("Table communale intermédiaire nécessaire à la production et la maintenance de la couche r_delegataires_000. Elle fournit la composition communale de l'emprise des délégataires des aides à la pierre France entiere, délagataires 2024 pour la région Pays de Loire, 2023 sinon")
 
 commenter_table(comment = cmtr_com, table = "delegataires_com_000", schema = schema_zh, db = "production")
-post_dico_attr(dico = dico_var, table = "delegataires_com_000", schema = schema_zh, db = "production", user = "does")
+post_dico_attr(dico = dico_var, table = "delegataires_com_000", schema = schema_zh, db = "production", user = "does", ecoSQL = FALSE)
 ```
 
 ```{r delegataires nettoyage, message=FALSE, warning=FALSE}

ref_dgaln/SRU.Rmd

@@ -551,7 +551,7 @@ dico_var <- tribble(
   "critere_agglo", paste0("Booleen indiquant si la commune appartient à une agglomération au sens de l’Insee (unité urbaine) ou un EPCI de plus de 50 000 habitants, comprenant lui-même au moins une commune de plus de 15 000 habitants."),
   "critere_agglo_lib", "Type d'agglo concernée par l'article 55 SRU",
   "critere_SRU", paste0("Booleen indiquant si la commune est susceptible d'être concernée par l'art 55 de la loi SRU : sa population est au moins égale à 3 500 habitants (1 500 en IdF - millésime population ", substr(mil_pop, 1, 4), ") et elle appartient à une agglomération suffisemment peuplée (cf champ critere_agglo) - Calcul DREAL."))
-map(.x = tab_sru, .f = ~post_dico_attr(dico_var, table = .x, schema = schema_zh, db = "production", user = "does"))
+map(.x = tab_sru, .f = ~post_dico_attr(dico_var, table = .x, schema = schema_zh, db = "production", user = "does", ecoSQL = FALSE))
 
 ```
 ```{r export table SRU pour vérif DPH, eval = FALSE}

ref_dgaln/TLV.Rmd

@@ -319,7 +319,7 @@ dic_var <- tribble(
   "type_com_tlv", "Origine du classement TLV :\n 1. Zone tendue = communes appartenant à une zone d’urbanisation continue de plus de 50000 habitants où existe un déséquilibre marqué entre l’offre et la demande de logements.\n 2. Zone touristique et tendue = communes ne respectant pas les conditions prévues au 1. où il existe un déséquilibre marqué entre l'offre et la demande de logements, caractérisé notamment par un taux élevé de résidences secondaires et des prix immobiliers et des loyers élevés dans le parc privé.",
   "THLV", paste0("Booléen indiquant si la THLV, taxe d habitation sur les logements vacants, a été appliquée sur cette commune en ", mil, "."), 
   "TLV_lib", "Libellé indiquant la situation de la commune vis à vis des taxes logements vacants.") 
-map(.x = tab_tlv, .f = ~post_dico_attr(dic_var, table = .x, schema = schema_zh, db = "production", user = "does"))
+map(.x = tab_tlv, .f = ~post_dico_attr(dic_var, table = .x, schema = schema_zh, db = "production", user = "does", ecoSQL = FALSE))
 
 # et on nettoie l'environnement de travail
 a_effacer <- grep("REI|tlv|rei|TLV", ls(), value = TRUE) %>% 

script_maitre_procedures_annuelles.Rmd

@@ -447,8 +447,7 @@ couches_a_evacuer <- c(map(.x = annees_a_evacuer,
 
 couches1 <- setdiff(couches, couches_a_evacuer) %>% sort 
 
-# le temps de finir les opah infra-communales
-couches1 <- setdiff(couches1, "n_opah_zope_r52") %>% sort
+
 ```
 On écarte les tables techniques, les tables d'indicateurs de prix du logement qui n'ont rien à faire là et les tables millésimées, on ne rapatrie que les tables à jour :   
 
@@ -534,7 +533,7 @@ map(.x = tables_geo, .f = ~requete6(.x, base = "consultation"))
 
 ```
 
-```{r exports_dico_attr, eval=FALSE}
+```{r exports_dico_attr, eval=TRUE}
 dico_attr_OPAH <- get_table_comments(table = "n_opah_zsup_r52", schema = schema_cons, db = "consultation")
 dico_attr_OPAH_ope <- get_table_comments(table = "n_opah_zope_r52", schema = schema_cons, db = "consultation")
 dico_attr_PIG <- get_table_comments(table = "n_pig_zsup_r52", schema = schema_cons, db = "consultation")