Skip to content
Snippets Groups Projects
Commit 9ed933c6 authored by Juliette Engelaere-Lefebvre's avatar Juliette Engelaere-Lefebvre
Browse files

Suppression des agrégats France métro des données :

- 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
parent 342b9aab
No related branches found
No related tags found
1 merge request!40Resolve "Mieux gérer les totaux de cogification"
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # 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 ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "captage_prioritaire_protection_action") poster_documenter_post_cogifier(source = "captage_prioritaire_protection_action")
......
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "copro_fragiles") cogifier_it(nom_source = "copro_fragiles", metro = FALSE)
# versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "copro_fragiles") poster_documenter_post_cogifier(source = "copro_fragiles")
......
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "couverture_sage") cogifier_it(nom_source = "couverture_sage", metro = FALSE)
# versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "couverture_sage") poster_documenter_post_cogifier(source = "couverture_sage")
......
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # 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 ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "etat_ecologique_cours_eau") poster_documenter_post_cogifier(source = "etat_ecologique_cours_eau")
......
...@@ -10,7 +10,7 @@ source("R/cogifier_it.R") ...@@ -10,7 +10,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "logt_renove_anah") cogifier_it(nom_source = "logt_renove_anah", metro = FALSE)
# # verif na dans EPCI à cheval # # verif na dans EPCI à cheval
# df_cog <- importer_data(db = "datamart", schema = "portrait_territoires", # df_cog <- importer_data(db = "datamart", schema = "portrait_territoires",
......
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "ocsge") cogifier_it(nom_source = "ocsge", metro = FALSE)
# versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "ocsge") poster_documenter_post_cogifier(source = "ocsge")
......
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "pci") cogifier_it(nom_source = "pci", metro = FALSE)
# versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "pci") poster_documenter_post_cogifier(source = "pci")
......
...@@ -7,7 +7,7 @@ source("R/cogifier_it.R") ...@@ -7,7 +7,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "protection_naturelle") cogifier_it(nom_source = "protection_naturelle", metro = FALSE)
# versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- # versement dans le sgbd/datamart.portrait_territoires et metadonnee -------------
poster_documenter_post_cogifier(source = "protection_naturelle") poster_documenter_post_cogifier(source = "protection_naturelle")
......
...@@ -10,7 +10,7 @@ source("R/cogifier_it.R") ...@@ -10,7 +10,7 @@ source("R/cogifier_it.R")
source("R/poster_doc_post_cogifier.R") source("R/poster_doc_post_cogifier.R")
# cogification # cogification
cogifier_it(nom_source = "reseaux_chaleur") cogifier_it(nom_source = "reseaux_chaleur", metro = FALSE)
# verif na dans EPCI à cheval # verif na dans EPCI à cheval
# df_cog <- importer_data(db = "datamart", schema = "portrait_territoires", # df_cog <- importer_data(db = "datamart", schema = "portrait_territoires",
......
...@@ -2,6 +2,8 @@ ...@@ -2,6 +2,8 @@
# indicateur_pci_lgt_rgp_insee # indicateur_pci_lgt_rgp_insee
library(magrittr) library(magrittr)
library(tidyverse)
library(datalibaba)
rm(list = ls()) rm(list = ls())
...@@ -18,7 +20,8 @@ pci <- datalibaba::importer_data( ...@@ -18,7 +20,8 @@ pci <- datalibaba::importer_data(
schema = schema, schema = schema,
table = tab1 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" # [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( lgt_rgp_insee <- datalibaba::importer_data(
...@@ -26,7 +29,8 @@ lgt_rgp_insee <- datalibaba::importer_data( ...@@ -26,7 +29,8 @@ lgt_rgp_insee <- datalibaba::importer_data(
schema = schema, schema = schema,
table = tab2 table = tab2
) )
# unique(lgt_rgp_insee$date)
unique(lgt_rgp_insee$date + 1)
# [1] "2010-01-01" "2015-01-01" "2021-01-01" # [1] "2010-01-01" "2015-01-01" "2021-01-01"
# calcul de l'indicateur ------------ # calcul de l'indicateur ------------
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment