Prise en compte des correctifs exposés le 23/07 sur l'inventaire TEO 2023 des installations.

- amélioration des commentaires du rapport,
- suppression de la mise en base systématqiue de la table préparée vers consultation

TODO --> a déporter sur branche 2023, prendre en compte le blocage liées au vue

0_compilation_TEO.Rmd

@@ -32,7 +32,7 @@ if(params$vpn) {
   repertoire <- paste0("W:/SRB/Bilans annuels méthanisation ", params$campagne, "/z_autres/") 
   }
 # nom du fichier et path
-nom_compil_teo <- "20230310_compilation_metha_TEO.ods"
+nom_compil_teo <- "20230310_compilation_metha_TEO_ajust.ods"
 path_compil_teo <- paste0(repertoire, nom_compil_teo)
 
 # lecture
@@ -108,7 +108,10 @@ if(params$campagne == "2022") {
   
 ```
 
-`r compil_teo_1 %>% filter(statut_agrege == "Abandon" | grepl("pas de valo de biogaz", etat_d_avancement_compil)) %>% nrow()` installations sont écartées car elle correspondent à des projets abandonnés, arrêtés, fermés, résiliés, suspendus ou sans valorisation du biogaz.
+`r compil_teo_1 %>% filter(statut_agrege == "Abandon" | grepl("pas de valo de biogaz", etat_d_avancement_compil)) %>% nrow()` installations sont écartées car elle correspondent à des projets abandonnés, arrêtés, fermés, résiliés, suspendus ou sans valorisation du biogaz.   
+
+
+Pour les autres, certaines sont sans coordonnées géo, on procède à leur redressement géo en vue de la mise en base de l'inventaire TEO.
 
 ```{r redressement_geo}
 centr_com <- communes_geo %>% 
@@ -159,7 +162,7 @@ compil_teo_3 <- compil_teo_2 %>%
 ```{r versement SGBD, eval=(params$sgbd_util=="does")}
 nom_table <- str_standardize(nom_compil_teo) %>% gsub("^var_|_ods$", "", .)
 date_table <- str_extract(nom_table, "[0-9]{8}_") %>% str_remove("_")
-nom_table <- str_remove(nom_table, "[0-9]{8}_") %>% paste0("_", date_table)
+nom_table <- paste0("compilation_metha_teo_", date_table)
                         
                         
 poster_data(data = compil_teo_3,
@@ -174,8 +177,7 @@ commenter_table(comment = commentaire_sgbd,
 
 ```
 
-
-# Préparation en vue d'une publication de la compil sur consultation et SIGloire
+# Préparation en vue d'une publication de la compil sur consultation
 
 ```{r publication}
 # A récupérer dans compil_teo les attributs publiés par TEO sur son open data, absent de compil 3
@@ -204,8 +206,8 @@ compil_publication <- compil_teo_3 %>%
 # write.csv2(compil_publication, "Resultats/20230313_Croisement_Biogaz_TEO_od_GPS_WGS84.csv", fileEncoding = "UTF-8", row.names = FALSE, na ="NA")
 
 
-# dico attributs : on récupère en flux chez TEO les metadonnées de l'année N en cours seulement si les bilans portent sur l'année N-1
-if(as.numeric(params$campagne) + 1 >= year(Sys.Date())) {
+# dico attributs : on récupère en flux chez TEO les metadonnées de l'année N en cours seulement si les bilans étudiés portent sur l'année N-1
+if(as.numeric(params$campagne) + 1 == year(Sys.Date())) {
   baseurl <- "https://data.teo-paysdelaloire.fr/api/explore/v2.1/catalog/datasets/837810944_2022_aile_s3ic_installations-methanisation/"
   
   metadatas <- httr::GET(baseurl) %>%
@@ -251,8 +253,11 @@ post_dico_attr(dico = dico_var, table = paste0(nom_table, "_synthese"),
 
 
 ```{r pub_consultation}
-## bascule sur la base de consultation
-poster_data(data = compil_publication, user = "admin", 
+## bascule sur la base de consultation seulement si dernier millésime
+# càd si la campagne N en cours, portant sur les installations qui ont fonctionné entre le 01/01 et le 31/12/ N, et recensées lors de l'inventaire TEO au 1er janv N+1, correspond à l'année en cours moins 1
+
+if(as.numeric(params$campagne) + 1 == year(Sys.Date())) {
+  poster_data(data = compil_publication, user = "admin", 
             table = "r_methanisation_p_r52", 
             schema = "site_industriel_production", db = "consultation",
             overwrite = TRUE, droits_schema = TRUE, pk = "id_table")
@@ -261,12 +266,13 @@ poster_data(data = compil_publication, user = "admin",
 transferer_table_comments(table_sce = paste0(nom_table, "_synthese"), schema_sce = "mecc_bilans_metha", db_sce =  "production", 
                           table_dest = "r_methanisation_p_r52", schema_dest = "site_industriel_production", db_dest = "consultation", 
                           user = "admin")
-
-
+} else {
+  message(paste0("L'inventaire TEO en date du ", format.Date(as.Date(date_table, "%Y%m%d"), "%d/%m/%Y"), " n'a présentement pas été publié sur la base de consultation.\nLa campagne ", params$campagne, " est en cours de traitement. Cette dernière porte sur les installations qui ont fonctionné entre le 01/01 et le 31/12/", params$campagne, ", et recensées lors de l'inventaire TEO au 1er janv ", as.numeric(params$campagne) + 1, ".\n La table attendue sur la base de consultation porte sur le millésime le plus récent ", year(Sys.Date()), "."))
+}
 
 ```
 
-Autres exports : couches spatiales, table de données complémentaire pour compilatio des réponses
+Autres exports : couches spatiales, table de données complémentaire pour compilation des réponses
 ```{r exports locaux}
 nom_export <- paste0("donnees_redresses/compil_teo_", date_table, "_enservice_ou_enprojet.csv")
 save(compil_teo_3, file = gsub("csv$", "RData", nom_export))

0_donnees_ref_palettes.Rmd

@@ -18,6 +18,7 @@ library(readxl)
 library(tricky)
 library(lubridate)
 library(datalibaba)
+library(COGiter)
 library(sf)
 library(glue)
 library(gouvdown)
@@ -38,6 +39,7 @@ Il est nécessaire de factoriser tout cela pour dans un Rmd à lire avant la com
 
   - [x] filigrane (intro 4e rmd)
   - [x] adresse fichier données complémentaire
+  - [x] libellés régional et départementaux
 
 ```{r parametres}
 # filigrane nom source
@@ -55,6 +57,13 @@ fic_ods <- list.files(repertoire, full.names = TRUE) %>% grep(".ods|.xls", ., va
 fic_tb_data_comp <- regmatches(fic_ods, regexpr("donnees_complementaires*\\.ods", fic_ods))[1] %>% 
   paste0(repertoire, "/", .)
 rm(fic_ods, repertoire)
+
+code_reg <- "52"
+ter <- list_dep_in_reg(code_reg) %>%
+  c(., "reg") 
+noms_ter <- nom_zone(type_zone = "Départements", code_zone = list_dep_in_reg(code_reg)) %>%
+  c(., nom_zone(type_zone = "Régions", code_zone = code_reg)) %>% 
+  tibble(ter, nom_ter = .)
 ```
 
 
@@ -456,7 +465,7 @@ viz_pal(pal_typo_groupee)
   - [x] regroupe typo AILE (L181 5e rmd) --> dans § ref AILE
   - [x] ligne total (intro 5e rmd)
   - [x] colonne total (intro 5e Rmd)
-  - [ ] ordonne intrants (5e Rmd, L152)
+  - [x] ordonne intrants (5e Rmd, L152)
   
 
 ```{r}