From e569e6c86c0da07a8a53334de26a753b61c65c1d Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
 <daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Thu, 27 Mar 2025 15:29:50 +0100
Subject: [PATCH] chargement des donnes sur x et suppression du script de
 chargement a mettre sur sgbd_datamart

---
 data-raw/01_preparation.R                     |  2 +-
 data-raw/05_creation_donnees_annuelles.R      |  4 ++
 data-raw/07_chargement_ecln.R                 | 45 -------------------
 ...iltre_region.R => filtre_region_apres05.R} |  0
 4 files changed, 5 insertions(+), 46 deletions(-)
 delete mode 100644 data-raw/07_chargement_ecln.R
 rename data-raw/{06_filtre_region.R => filtre_region_apres05.R} (100%)

diff --git a/data-raw/01_preparation.R b/data-raw/01_preparation.R
index deb58e5..75ea039 100644
--- a/data-raw/01_preparation.R
+++ b/data-raw/01_preparation.R
@@ -437,7 +437,7 @@ a2 <- bind_rows(a0,a1b) %>%  # regroupement table fictive et des epci non prése
 indic_nat <- bind_rows(indic_nat,a2) %>%  #regroupement des tables pour avoir tous les zonages et tous les cas de figure
   mutate(CodeZone = forcats::fct_drop(CodeZone),
          Zone = forcats::fct_drop(Zone))
-rm(a0a,a0,a0b,a1,a1b,a2,v1)
+rm(a0,a1,a1b,a2,v1)
 
 # 2.2.b calculs par rapport au nombre de promoteurs
 
diff --git a/data-raw/05_creation_donnees_annuelles.R b/data-raw/05_creation_donnees_annuelles.R
index ba93f45..0129c17 100644
--- a/data-raw/05_creation_donnees_annuelles.R
+++ b/data-raw/05_creation_donnees_annuelles.R
@@ -115,4 +115,8 @@ indic_ecln <- bind_rows(indic_ecln_cumul, indic_ecln_trim) %>%
 rm(indicateurs_non_sommables,Indic_final2,Indic_final,indic_ecln_trim,indic_ecln_cumul,
    TauxEvolution12Mois,FormatDate,FormatCaractere)
 
+# enregistrement dufichier rda dans package
 usethis::use_data(indic_ecln, overwrite = TRUE)
+
+# enregistrement des données sur X
+save(indic_ecln, file = "X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/indic_ecln.rda")
diff --git a/data-raw/07_chargement_ecln.R b/data-raw/07_chargement_ecln.R
deleted file mode 100644
index 9da944a..0000000
--- a/data-raw/07_chargement_ecln.R
+++ /dev/null
@@ -1,45 +0,0 @@
-# chargement des données ecln annuelles sur le serveur ecosql
-
-library(dplyr)
-library(stringr)
-library(tidyverse)
-
-rm(list = ls())
-
-
-# indic_ecln <- propre.ecln::indic_ecln
-
-# filtre pour ne garder que les données annuelles
-tab_ecln <- indic_ecln %>%
-  filter(TypeIndicateur=="Cumul annuel",
-         str_detect(Periode, "-12-31")) %>%
-  mutate(Indicateur=tolower(Indicateur),
-         Indicateur=str_replace(Indicateur," - ","."),
-         Indicateur=str_replace(Indicateur,"appartements","appart"),
-         Indicateur=str_replace(Indicateur,"constructions neuves","cons_neuves"),
-         Indicateur=str_replace(Indicateur,"constructions sur existant","cons_sur_exist"),
-         Indicateur=str_replace(Indicateur,"mises en vente","mev"))
-
-tab_valeurs <- tab_ecln %>%
-  select(TypeZone,Zone,CodeZone,date=Periode,variable=Indicateur, valeur=Valeur)
-tab_evol <- tab_ecln %>%
-  select(TypeZone,Zone,CodeZone,date=Periode,variable=Indicateur, valeur=TauxEvolution12Mois) %>%
-  mutate(variable = paste0("evol12m_",variable))
-source_ecln <- bind_rows(tab_valeurs,tab_evol) %>%
-  mutate(valeur = format(valeur, scientific = FALSE)) %>%
-  pivot_wider(names_from = variable,values_from = valeur)
-
-# versement dans le sgbd EcoSQL/datamart.portrait_territoires -------------
-
-source("data-raw/poster_documenter_ind.R", encoding = "UTF-8")
-poster_documenter_ind(
-  df = source_ecln,
-  nom_table_sgbd = "source_ecln",
-  nom_script_sce = "chargement_ecln",
-  comm_source_en_plus = "Données chargées depuis le serveur RStudio du SDES pour les DREALs",
-  secret = TRUE,
-  user = "ecosql_stat",
-  serveur = Sys.getenv("server_ecosql")
-)
-
-
diff --git a/data-raw/06_filtre_region.R b/data-raw/filtre_region_apres05.R
similarity index 100%
rename from data-raw/06_filtre_region.R
rename to data-raw/filtre_region_apres05.R
-- 
GitLab