From 3deb7aafd30cecc4b6661e7a456884c871f1d02e Mon Sep 17 00:00:00 2001
From: Denis DOUILLARD <denis.douillard@developpement-durable.gouv.fr>
Date: Tue, 10 Dec 2024 15:24:47 +0100
Subject: [PATCH] =?UTF-8?q?Mise=20=C3=A0=20jour=20trimestrielle=20du=20pac?=
=?UTF-8?q?kage=20et=20g=C3=A9n=C3=A9ration=20de=20la=20publication=20du?=
=?UTF-8?q?=20T3=20de=202024?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
DESCRIPTION | 6 ++--
R/creer_chiffres_clefs.R | 16 +++++-----
data-raw/01_preparation.R | 7 ++---
data-raw/03_secretisation.R | 29 +++++--------------
.../ecln_conjoncture/skeleton/skeleton.Rmd | 2 +-
man/en_trimestre.Rd | 4 +--
man/indic_ecln.Rd | 2 +-
tests/testthat.R | 12 ++++++++
8 files changed, 38 insertions(+), 40 deletions(-)
create mode 100644 tests/testthat.R
diff --git a/DESCRIPTION b/DESCRIPTION
index 27b1066..00d9bbd 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,6 @@
Package: propre.ecln
-Title: Publication conjoncturelle sur la commercialisation de logement neufs
+Title: Publication conjoncturelle sur la commercialisation de logement
+ neufs
Version: 0.0.0.9000
Authors@R: c(
person("Maël", "THEULIERE", , "mael.theuliere@gmail.com", role = c("aut", "cre"),
@@ -7,7 +8,8 @@ Authors@R: c(
person("Daniel", "Kalioudjoglou", , "daniel.kalioudjoglou@developpement-durable.gouv.fr", role = "aut"),
person("Denis", "Douillard", , "denis.douillard@developpement-durable.gouv.fr", role = "aut")
)
-Description: Template Rmarkdown et fonctions pour réaliser la publication trimestrielle sur la commercialisation de logement neufs.
+Description: Template Rmarkdown et fonctions pour réaliser la publication
+ trimestrielle sur la commercialisation de logement neufs.
License: GPL (>= 3)
Depends:
R (>= 2.10)
diff --git a/R/creer_chiffres_clefs.R b/R/creer_chiffres_clefs.R
index 8eaa88d..e4774a2 100644
--- a/R/creer_chiffres_clefs.R
+++ b/R/creer_chiffres_clefs.R
@@ -1,4 +1,4 @@
-#' Converti une date en trimestre
+#' Convertit une date en trimestre
#'
#' @param date une date
#'
@@ -7,10 +7,10 @@
#' @importFrom lubridate month year
en_trimestre <- function(date) {
trim <- dplyr::case_when(
- lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
- lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
- lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
- lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+ lubridate::month(date) <= 3 ~ "premier",
+ lubridate::month(date) <= 6 ~ "deuxi\u00E8me",
+ lubridate::month(date) <= 9 ~ "troisi\u00E8me",
+ lubridate::month(date) <= 12 ~ "quatri\u00E8me"
)
return(
paste(trim, "trimestre de", lubridate::year(date))
@@ -27,9 +27,9 @@ en_trimestre <- function(date) {
en_trimestre_moins_un <- function(date) {
trim <- dplyr::case_when(
lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
- lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
- lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
- lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+ lubridate::month(date) <= 6 ~ "2<sup>e</sup>",
+ lubridate::month(date) <= 9 ~ "3<sup>e</sup>",
+ lubridate::month(date) <= 12 ~ "4<sup>e</sup>"
)
return(
paste(trim, "trimestre de", lubridate::year(date)-1)
diff --git a/data-raw/01_preparation.R b/data-raw/01_preparation.R
index cfbd57e..70eb2a0 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
# ------------------------------------------------------------------------------------------------------
@@ -558,4 +558,3 @@ Epci_plus_50000 <- population %>%
pull(CodeZone)
rm(population)
-
diff --git a/data-raw/03_secretisation.R b/data-raw/03_secretisation.R
index c8867c6..0964c71 100644
--- a/data-raw/03_secretisation.R
+++ b/data-raw/03_secretisation.R
@@ -26,8 +26,8 @@ secret_epci<- ecln_secret_11 %>%
filter(TypeZone =="Epci")
#secret induit,
-#pour un meme indicateur et un meme département, pour ne pas retrouver la valeur d'un Epci
-#en faisant la somme des variables de l'Epci
+#pour un même indicateur et un même département, pour ne pas retrouver la valeur d'un Epci
+#en faisant la somme des variables de l'EPCI
secret_epci1<- secret_epci %>%
group_by(Indicateur,DEP,Periode) %>%
@@ -40,8 +40,8 @@ secret_epci1<- secret_epci %>%
TRUE ~ 0))
-# secret induit, pour un même Epci,une meme categorie et un meme trimestre, pour ne pas retrouver la valeur d'une variable
-# en faisant la somme des variables de l'Epci
+# secret induit, pour un même Epci, une même categorie et un même trimestre, pour ne pas retrouver la valeur d'une variable
+# en faisant la somme des variables de l'EPCI
secret_epci1<- secret_epci1 %>%
group_by(TypeZone,categorie,CodeZone,Periode) %>%
@@ -73,7 +73,7 @@ secret_dep<- ecln_secret_11 %>%
filter(TypeZone =="Départements")
#secret induit,
-#pour un meme indicateur et une meme région, pour ne pas retrouver la valeur d'un département
+#pour un même indicateur et une même région, pour ne pas retrouver la valeur d'un département
#en faisant la somme des variables du département
secret_dep1<- secret_dep %>%
@@ -119,8 +119,8 @@ secret_dep3<-secret_dep2 %>%
secret_reg<- ecln_secret_11 %>%
filter(TypeZone =="Régions" | TypeZone =="France")
-# secret induit, pour une même Région,une meme categorie et un meme trimestre, pour ne pas retrouver la valeur d'une variable
-# en faisant la somme des variables de la Région
+# secret induit, pour une même région,une meme categorie et un meme trimestre, pour ne pas retrouver la valeur d'une variable
+# en faisant la somme des variables de la région
secret_reg1<- secret_reg %>%
group_by(TypeZone,categorie,CodeZone,Periode) %>%
@@ -155,18 +155,3 @@ rm(ecln_secret_10,ecln_secret_11,secret_dep,secret_dep1,secret_dep2,secret_dep3,
secret_epci,secret_epci1,secret_epci2,secret_epci3,secret_reg,secret_reg1,
secret_reg2,secret_reg3,tranches_ecln)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index 5e0a05c..4635bba 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -2,7 +2,7 @@
params:
region: "52"
annee: "2024"
- trimestre: "2"
+ trimestre: "3"
abc: FALSE
# title: "La commercialisation<br>des logements neufs<br>dans les `r mapfactory::get_nom_reg(params$region)`"
# subtitle: <h2>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee` - Titre informatif qui peut tenir sur plusieurs lignes (par exemple Les ventes sont les plus basses depuis au moins sept ans) </h2>
diff --git a/man/en_trimestre.Rd b/man/en_trimestre.Rd
index ad618ef..a77bcd1 100644
--- a/man/en_trimestre.Rd
+++ b/man/en_trimestre.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/creer_chiffres_clefs.R
\name{en_trimestre}
\alias{en_trimestre}
-\title{Converti une date en trimestre}
+\title{Convertit une date en trimestre}
\usage{
en_trimestre(date)
}
@@ -13,5 +13,5 @@ en_trimestre(date)
une chaine de caractère
}
\description{
-Converti une date en trimestre
+Convertit une date en trimestre
}
diff --git a/man/indic_ecln.Rd b/man/indic_ecln.Rd
index 4b77153..1f7e5d3 100644
--- a/man/indic_ecln.Rd
+++ b/man/indic_ecln.Rd
@@ -6,7 +6,7 @@
\alias{indic_ecln}
\title{Table contenant les différents indicateurs de la source ecln utiles pour la publication.}
\format{
-Table de 2535180 lignes et 9 colonnes:
+Table de 2619686 lignes et 9 colonnes:
\describe{
\item{TypeZone}{Type de territoire}
\item{CodeZone}{Code du territoire}
diff --git a/tests/testthat.R b/tests/testthat.R
new file mode 100644
index 0000000..c680f80
--- /dev/null
+++ b/tests/testthat.R
@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library(testthat)
+library(propre.ecln)
+
+test_check("propre.ecln")
--
GitLab