InseeFrLab · clerousset · Jun 17, 2026
diff --git a/01_R_Insee/Fiche-personnaliser-R.qmd b/01_R_Insee/Fiche-personnaliser-R.qmd
@@ -1,5 +1,8 @@
 # Personnaliser la configuration de `R` {#personnaliser}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
 L'agent souhaite personnaliser sa configuration de `R`. Cette personnalisation consiste à définir certaines actions ou valeurs qui seront effectuées automatiquement à l'ouverture d'une session `R`.
 
 ::: {.callout-important}

diff --git a/01_R_Insee/Fiche_installer_packages.qmd b/01_R_Insee/Fiche_installer_packages.qmd
@@ -1,5 +1,9 @@
 # Utiliser des _packages_ `R` {#utiliser-packages}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ::: {.callout-important}
 ## Tâche concernée et recommandation
 

diff --git a/01_R_Insee/Fiche_utiliser_Rstudio_AUSv3.qmd b/01_R_Insee/Fiche_utiliser_Rstudio_AUSv3.qmd
@@ -1,5 +1,9 @@
 # Utiliser RStudio sur l'environnement AUSv3 {#AUSv3}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ::: {.callout-important}
 ## Tâche concernée et recommandation
 

diff --git a/01_R_Insee/Fiche_utiliser_ressources.qmd b/01_R_Insee/Fiche_utiliser_ressources.qmd
@@ -1,5 +1,9 @@
 # Superviser sa session `R` {#superviser-ressources}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ::: {.callout-important}
 ## Tâche concernée et recommandation
 

diff --git a/01_R_Insee/Fiche_utiliser_utilitR.qmd b/01_R_Insee/Fiche_utiliser_utilitR.qmd
@@ -1,5 +1,9 @@
 # Comment utiliser la documentation `utilitR` {#presentation-utilitr}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ## Contenu de la documentation
 
 **Cette documentation vise à aider les agents à réaliser des traitements statistiques usuels avec `R` et à produire des sorties (graphiques, cartes, documents).** Cette documentation présente succinctement les outils les plus adaptés à ces tâches, et oriente les agents vers les ressources documentaires pertinentes. En revanche, elle n'aborde pas les outils les plus avancés, notamment ceux utilisés dans un cadre de développement logiciel.

diff --git a/01_R_Insee/Travail_avec_R_Insee.qmd b/01_R_Insee/Travail_avec_R_Insee.qmd
@@ -1,5 +1,9 @@
 # Comment travailler avec R à l'Insee ?
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ## Démarrage rapide de `R` à l'Insee
 
 - où clique-t-on pour accéder à Rstudio? Description rapide des environnements: local, AUS, PF innovation.

diff --git a/02_Bonnes_pratiques/01-qualite-code.qmd b/02_Bonnes_pratiques/01-qualite-code.qmd
@@ -1,5 +1,9 @@
 # Qualité du code {#code-quality}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ::: {.callout-important}
 ## Tâche concernée et recommandation
 

diff --git a/02_Bonnes_pratiques/02-nommage.qmd b/02_Bonnes_pratiques/02-nommage.qmd
@@ -1,5 +1,9 @@
 # Nommer les objets {.nommage}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 Un code écrit avec des noms de variables et de fonctions explicites est autant, voire plus, informatif que les commentaires qui l’accompagnent. C'est pourquoi il est essentiel de respecter des conventions pour le choix des noms des objets afin d'assurer la lisibilité des programmes. Sur ce point, il est important de rappeler que **`R` est un langage sensible à la casse**, ce qui signifie que `variable` et `Variable` renvoient à deux objets différents.
 
 Les fonctions de base `R` utilisent des points dans les noms de fonctions ( `contrib.url()` par exemple) ou les noms de classes (`data.frame`). Il est néanmoins mieux de réserver les points uniquement aux objets de classe `S3` sous la forme `fonction.classe`

diff --git a/02_Bonnes_pratiques/03-syntaxe.qmd b/02_Bonnes_pratiques/03-syntaxe.qmd
@@ -1,5 +1,9 @@
 # Rédiger un script `R`
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ## Longueur des lignes
 
 **La longueur maximale recommandée d'une ligne est 80 caractères**. Il faut penser à retourner à la ligne pour que le code soit lisible. Par exemple,

diff --git a/02_Bonnes_pratiques/04-organisation.qmd b/02_Bonnes_pratiques/04-organisation.qmd
@@ -1,5 +1,9 @@
 # Comment organiser un code `R`
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ## Lister les dépendances
 
 Il est important de mettre en évidence dans le code la liste des *packages* utilisés, la définition des fonctions (si elles sont utilisées plusieurs fois dans le script) et la définition des paramètres. Cela permet de bien visualiser les *packages* chargés pour un script ainsi que l'ensemble des paramètres à éventuellement modifier/mettre à jour. 

diff --git a/03_Fiches_thematiques/Fiche_analyse_de_donnees.qmd b/03_Fiches_thematiques/Fiche_analyse_de_donnees.qmd
@@ -1,5 +1,9 @@
 # L'analyse de données (ACP, ACM, ACF...) {#acp}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ## Tâches concernées et recommandations
 
 Vous souhaitez appliquer les méthodes classiques d'analyse de données, notamment l'analyse en composantes principales, l'analyse des correspondances multiples, l'analyse factorielle des correspondances...

diff --git a/03_Fiches_thematiques/Fiche_arrow.qmd b/03_Fiches_thematiques/Fiche_arrow.qmd
@@ -1,5 +1,9 @@
 # Manipuler des données avec `arrow` {#arrow}
 
+```{r, echo=FALSE, results='asis'}
+source(file.path(here::here(),"utils/derniere_modif.R"))
+```
+
 ## Tâches concernées et recommandations
 
 L'utilisateur souhaite manipuler des données structurées sous forme de `data.frame`  par le biais de l'écosystème `Arrow` (sélectionner des variables, sélectionner des observations, créer des variables, joindre des tables).

diff --git a/rproject.toml b/rproject.toml
@@ -48,4 +48,5 @@ dependencies = [
     { name = "melodi", git = "https://github.com/inseefrlab/melodi", branch = "main" },
     { name = "insee", git = "https://github.com/pyr-opendatafr/R-Insee-Data", branch = "master" },
     { name = "OECD", git = "https://github.com/expersso/OECD", branch = "master" },
+    "here",
 ]
diff --git a/rv.lock b/rv.lock
@@ -915,6 +915,15 @@ dependencies = [
     "cpp11",
 ]
 
+[[packages]]
+name = "here"
+version = "1.0.2"
+source = { repository = "https://packagemanager.posit.co/cran/latest" }
+force_source = false
+dependencies = [
+    { name = "rprojroot", requirement = "(>= 2.1.0)" },
+]
+
 [[packages]]
 name = "highr"
 version = "0.12"
@@ -1671,6 +1680,13 @@ dependencies = [
     { name = "yaml", requirement = "(>= 2.1.19)" },
 ]
 
+[[packages]]
+name = "rprojroot"
+version = "2.1.1"
+source = { repository = "https://packagemanager.posit.co/cran/latest" }
+force_source = false
+dependencies = []
+
 [[packages]]
 name = "rsdmx"
 version = "0.6-5"

diff --git a/utils/derniere_modif.R b/utils/derniere_modif.R
@@ -0,0 +1,7 @@
+# malhereusement nécessaire car  knitr::current_input renvoit faussement .rmarkdown
+nom_fichier <- sub("rmarkdown", "qmd", knitr::current_input(dir=FALSE))
+last_date <- system(paste0("git log -1 --format=%as -- ", nom_fichier), intern = TRUE)
+last_date <- format(as.Date(last_date), format = "%d/%m/%Y")
+if(length(last_date) > 0) {
+  cat("**Dernière modification :** ", last_date)
+}