From ce6b2ba33ff37de8f55025570a54fc2a48d4c892 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
 <daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Mon, 9 Dec 2024 18:08:37 +0100
Subject: [PATCH] reecriture du chemin

---
 data-raw/01_preparation.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/data-raw/01_preparation.R b/data-raw/01_preparation.R
index cfbd57e..ad4a132 100644
--- a/data-raw/01_preparation.R
+++ b/data-raw/01_preparation.R
@@ -19,7 +19,7 @@ library(datalibaba)
 # mes_departements <- list_dep_in_reg(ma_region)
 
 # Recherche du dernier millesime disponible
-fichiers <- list.files("X:/SCTE/DEP/Donnees_confidentielles/Conjoncture/ECLN/Publication"
+fichiers <- list.files("X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication"
                        ,include.dirs = FALSE,full.names = FALSE, pattern = "stat_info")
 # fichiers <- list.files('data-raw',include.dirs = FALSE,full.names = FALSE, pattern = "stat_info")
 millesime <- fichiers %>%
@@ -27,8 +27,8 @@ millesime <- fichiers %>%
   max()
 # fichier_donnees <- paste0("data-raw/stat_info_data_regionaux_",millesime,".csv")
 # fichier_calage <- paste0("data-raw/cale_ventile_",millesime,".xls")
-fichier_donnees <- paste0("X:/SCTE/DEP/Donnees_confidentielles/Conjoncture/ECLN/Publication/stat_info_data_regionaux_",millesime,"_.csv")
-fichier_calage <- paste0("X:/SCTE/DEP/Donnees_confidentielles/Conjoncture/ECLN/Publication/cale_ventile_",millesime,".xls")
+fichier_donnees <- paste0("X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication/stat_info_data_regionaux_",millesime,"_.csv")
+fichier_calage <- paste0("X:/SCTE/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication/cale_ventile_",millesime,".xls")
 
 # 1. Récupération des données
 # ------------------------------------------------------------------------------------------------------
-- 
GitLab