diff --git a/data-raw/cogification_captage_prioritaire_protection_action.R b/data-raw/cogification_captage_prioritaire_protection_action.R index ed51cc6dacf27de0e3c37b5abd25ccedd58e94e7..e4c128d440d213bf915dfb51f4c8029d31092fc2 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 e85af84c3f4431266e0c710e5325e2825d6d4554..81a50584ac8863a44b77a996cb3fcab75a98d630 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 aaa78e4d071f3cd5a298e41ad4d4035c30c95cd1..902eb6a649bd6a0c20cbafcc1f69cae6793e4a40 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 471ada11051126ee952b5e34368e49db2bc00454..9c8320af8000067d18d5d6ce89c72b95f80f99de 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 967da5535710eb1af7eef8970e424657d076eb98..80bdbffac55fb15b3da48d26a91ccc3d36089275 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 ca7d63a7ae31a612fc43bac187d1daabc7be2b93..49b4dbc3da5de44f6854f20d85622db67b8974fe 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 53df9edd1d245a50f16cda991c1168b9fd174795..f6c03660729efc9bdd7a46d367201e8d5ec438bc 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 fb7159ad6000ff30e19acead45fe0997920f76bb..6f5886f375e6e6a627b59fa716e17ca0159eeec6 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 94073beac8dd85bb6ecb61b6cb754d0edbaa5d6f..431f90e72c441d9e99ab787eaab21b6d5109a01a 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 93aecb581852b0b5268aa6a156755f5d935f6c55..4174207961851779ce4f6e798895890d199b19d1 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 ------------