From 8a8a1d0a6fe47852cc09cc97cca31d6ddee5d249 Mon Sep 17 00:00:00 2001
From: "Daniel.Kalioudjoglou"
 <daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Tue, 10 Dec 2024 14:07:08 +0000
Subject: [PATCH] Revert "Merge branch
 '46-modification-du-chemin-d-acces-aux-donnees-brutes' into 'master'"

This reverts merge request !29
---
 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 ad4a132..cfbd57e 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/CSD/DONNEES_CONFIDENTIELLES/_niveau_2/Conjoncture/ECLN/Publication"
+fichiers <- list.files("X:/SCTE/DEP/Donnees_confidentielles/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/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")
+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")
 
 # 1. Récupération des données
 # ------------------------------------------------------------------------------------------------------
-- 
GitLab