Skip to content
Snippets Groups Projects
Commit baf8a53f authored by Daniel.Kalioudjoglou's avatar Daniel.Kalioudjoglou
Browse files

parametrage du trimestre

parent b6257c11
No related branches found
No related tags found
1 merge request!3Adaptation pour faire fonctionner le rmd
Pipeline #176401 failed
......@@ -4,3 +4,5 @@
.Ruserdata
extdata/
data/
data-raw/*.xls
data-raw/*.csv
......@@ -13,16 +13,23 @@ library(stringr)
library(dtplyr)
options(scipen = 999)
# Recherche du dernier millesime disponible
fichiers <- list.files('data-raw',include.dirs = FALSE,full.names = FALSE, pattern = "stat_info")
millesime <- fichiers %>%
substr(26,31) %>%
max()
fichier_donnees <- paste0("data-raw/stat_info_data_regionaux_",millesime,".csv")
fichier_calage <- paste0("data-raw/cale_ventile_",millesime,".xls")
# 1. Récupération des données
# ------------------------------------------------------------------------------------------------------
# Données envoyées par mail ou déposées sur le serveur RStudio (/home/partage-ECLN/ECLN/AAAATN/) sont déposées dans le répertoire des données confidentielles avec accès restreint
# Données ECLN brutes non secrétisées - Attention séparateur ; et décimal .
ECLN <- read.csv2("X:/SCTE/DOES/_Data/Conjoncture/ECLN/ECLN2023T2/stat_info_data_regionaux_2023T2_.csv", header = T, sep = ";", dec = ".")
ECLN <- read.csv2(fichier_donnees, header = T, sep = ";", dec = ".")
# Fichier de calage des ventes ventilés au niveau dep et reg - Seules les ventes du dernier trimestre sont calées
cale_reg_dep <- read_excel("X:/SCTE/DOES/_Data/Conjoncture/ECLN/ECLN2023T2/Cale_ventile_2023T2.xls")
cale_reg_dep <- read_excel(fichier_calage)
# 2. Construction de la table des indicateurs communaux par type de logement et nature du projet
......@@ -356,7 +363,8 @@ Indic_a_caler <- c( str_subset(levels(indic_ecln$Indicateur), "Encours"), str_s
indic_ecln_ss_com <- indic_ecln_ss_com %>%
mutate(indic_calage = ifelse(TypeZone %in% c("France", "Régions", "Départements") &
Indicateur %in% Indic_a_caler &
Periode == "2023T2", "oui", "non"))
Periode == millesime, "oui", "non"))
# Periode == "2023T2", "oui", "non"))
# extraction dans la table des indicateurs ECLN des indicateurs à caler
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment