From 9ed933c6f7c580a4e629c286badb1ef0d950a34d Mon Sep 17 00:00:00 2001 From: Juliette Engelaere-Lefebvre <juliette.engelaere@developpement-durable.gouv.fr> Date: Wed, 19 Jun 2024 18:50:07 +0200 Subject: [PATCH] =?UTF-8?q?Suppression=20des=20agr=C3=A9gats=20France=20m?= =?UTF-8?q?=C3=A9tro=20des=20donn=C3=A9es=20:?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - captage_prioritaire_protection_action - copro_fragiles - couverture_sage - etat_ecologique_cours_eau - fichier_foncier_artificialisation - logt_renove_anah - ocsge - pci - protection_naturelle - reseaux_chaleur Closes #86 --- .../cogification_captage_prioritaire_protection_action.R | 2 +- data-raw/cogification_copro_fragiles.R | 2 +- data-raw/cogification_couverture_sage.R | 2 +- data-raw/cogification_etat_ecologique_cours_eau.R | 2 +- data-raw/cogification_logt_renove_anah.R | 2 +- data-raw/cogification_ocsge.R | 2 +- data-raw/cogification_pci.R | 2 +- data-raw/cogification_protection_naturelle.R | 2 +- data-raw/cogification_reseaux_chaleur.R | 2 +- data-raw/indicateur_pci_lgt_rgp_insee.R | 8 ++++++-- 10 files changed, 15 insertions(+), 11 deletions(-) diff --git a/data-raw/cogification_captage_prioritaire_protection_action.R b/data-raw/cogification_captage_prioritaire_protection_action.R index ed51cc6..e4c128d 100644 --- a/data-raw/cogification_captage_prioritaire_protection_action.R +++ b/data-raw/cogification_captage_prioritaire_protection_action.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "captage_prioritaire_protection_action") +cogifier_it(nom_source = "captage_prioritaire_protection_action", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "captage_prioritaire_protection_action") diff --git a/data-raw/cogification_copro_fragiles.R b/data-raw/cogification_copro_fragiles.R index e85af84..81a5058 100644 --- a/data-raw/cogification_copro_fragiles.R +++ b/data-raw/cogification_copro_fragiles.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "copro_fragiles") +cogifier_it(nom_source = "copro_fragiles", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "copro_fragiles") diff --git a/data-raw/cogification_couverture_sage.R b/data-raw/cogification_couverture_sage.R index aaa78e4..902eb6a 100644 --- a/data-raw/cogification_couverture_sage.R +++ b/data-raw/cogification_couverture_sage.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "couverture_sage") +cogifier_it(nom_source = "couverture_sage", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "couverture_sage") diff --git a/data-raw/cogification_etat_ecologique_cours_eau.R b/data-raw/cogification_etat_ecologique_cours_eau.R index 471ada1..9c8320a 100644 --- a/data-raw/cogification_etat_ecologique_cours_eau.R +++ b/data-raw/cogification_etat_ecologique_cours_eau.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "etat_ecologique_cours_eau") +cogifier_it(nom_source = "etat_ecologique_cours_eau", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "etat_ecologique_cours_eau") diff --git a/data-raw/cogification_logt_renove_anah.R b/data-raw/cogification_logt_renove_anah.R index 967da55..80bdbff 100644 --- a/data-raw/cogification_logt_renove_anah.R +++ b/data-raw/cogification_logt_renove_anah.R @@ -10,7 +10,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "logt_renove_anah") +cogifier_it(nom_source = "logt_renove_anah", metro = FALSE) # # verif na dans EPCI à cheval # df_cog <- importer_data(db = "datamart", schema = "portrait_territoires", diff --git a/data-raw/cogification_ocsge.R b/data-raw/cogification_ocsge.R index ca7d63a..49b4dbc 100644 --- a/data-raw/cogification_ocsge.R +++ b/data-raw/cogification_ocsge.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "ocsge") +cogifier_it(nom_source = "ocsge", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "ocsge") diff --git a/data-raw/cogification_pci.R b/data-raw/cogification_pci.R index 53df9ed..f6c0366 100644 --- a/data-raw/cogification_pci.R +++ b/data-raw/cogification_pci.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "pci") +cogifier_it(nom_source = "pci", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "pci") diff --git a/data-raw/cogification_protection_naturelle.R b/data-raw/cogification_protection_naturelle.R index fb7159a..6f5886f 100644 --- a/data-raw/cogification_protection_naturelle.R +++ b/data-raw/cogification_protection_naturelle.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "protection_naturelle") +cogifier_it(nom_source = "protection_naturelle", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "protection_naturelle") diff --git a/data-raw/cogification_reseaux_chaleur.R b/data-raw/cogification_reseaux_chaleur.R index 94073be..431f90e 100644 --- a/data-raw/cogification_reseaux_chaleur.R +++ b/data-raw/cogification_reseaux_chaleur.R @@ -10,7 +10,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "reseaux_chaleur") +cogifier_it(nom_source = "reseaux_chaleur", metro = FALSE) # verif na dans EPCI à cheval # df_cog <- importer_data(db = "datamart", schema = "portrait_territoires", diff --git a/data-raw/indicateur_pci_lgt_rgp_insee.R b/data-raw/indicateur_pci_lgt_rgp_insee.R index 93aecb5..4174207 100644 --- a/data-raw/indicateur_pci_lgt_rgp_insee.R +++ b/data-raw/indicateur_pci_lgt_rgp_insee.R @@ -2,6 +2,8 @@ # indicateur_pci_lgt_rgp_insee library(magrittr) +library(tidyverse) +library(datalibaba) rm(list = ls()) @@ -18,7 +20,8 @@ pci <- datalibaba::importer_data( schema = schema, table = tab1 ) -# unique(pci$date) + +unique(pci$date) # [1] "2011-01-01" "2012-01-01" "2013-01-01" "2014-01-01" "2015-01-01" "2017-01-01" "2018-01-01" "2019-01-01" "2020-01-01" lgt_rgp_insee <- datalibaba::importer_data( @@ -26,7 +29,8 @@ lgt_rgp_insee <- datalibaba::importer_data( schema = schema, table = tab2 ) -# unique(lgt_rgp_insee$date) + +unique(lgt_rgp_insee$date + 1) # [1] "2010-01-01" "2015-01-01" "2021-01-01" # calcul de l'indicateur ------------ -- GitLab