Skip to content
Snippets Groups Projects

reecriture du chemin

Merged reecriture du chemin
46-modification-du-chemin-d-acces-aux-donnees-brutes into master
Merged Daniel.Kalioudjoglou requested to merge 46-modification-du-chemin-d-acces-aux-donnees-brutes into master
Compare
and
1 file
+ 3
− 3
Compare changes
  • Side-by-side
  • Inline
data-raw/01_preparation.R
+ 3
− 3
@@ -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
# ------------------------------------------------------------------------------------------------------