Reproductibilité de la fiche tableurs

.gitignore

@@ -34,6 +34,8 @@ rapport étonnement CT.rtf
 
 pics_resized/*
 _pagedown_output/*
+fichiers_tableurs/*
+
 
 # chapitre targets
 _targets.R
@@ -43,4 +45,4 @@ resources/targets/_targets/*
 data/donnes_entrees.csv
 /.quarto/
 _targets/
-/resources/rmarkdown/chunk*
+/resources/rmarkdown/chunk*

03_Fiches_thematiques/Fiche_import_tableurs.qmd

@@ -19,17 +19,45 @@ Il est déconseillé d'utiliser le _package_ `xlsx`.
 
 ## Importer un fichier `xlsx` ou `xls`
 
-L'importation de fichiers `xlsx` et `xls` va être illustré à partir de deux jeux de données créés à partir de données présentes sur le site de l'Insee, en formats `xls` et `xlsx`. Pour reproduire les exemples ci-dessous, vous devez :
+```{r téléchargement-xls-xlsx, message=FALSE, warning=FALSE}
+    ```{r, eval=FALSE}
+# Installation du package {here} si besoin et chargement
+    # Attention, vous devez adapter le chemin des fichiers à votre environnement de travail
+if (!require("here", character.only = TRUE)) {
+    chemin_xls  <- "C:/Users/mon_IDEP_Insee/Dossier_utilitR/mes_donnees/mes_donnees.xls"  
+  install.packages("here", dependencies = TRUE)
+    chemin_xlsx <- "C:/Users/mon_IDEP_Insee/Dossier_utilitR/mes_donnees/mes_donnees.xlsx"
+  library("here", character.only = TRUE)
+    ```
+}
+
+# Définition des liens vers les fichiers tableurs
+telechargement_xlsx <- "https://github.com/InseeFrLab/utilitR/raw/master/import_donnees_tabulees_tests/mes_donnees.xlsx"
+telechargement_xls <- "https://github.com/InseeFrLab/utilitR/raw/master/import_donnees_tabulees_tests/mes_donnees.xls"
+# Définition des chemins sur son poste
+if (!file.exists(paste0(here::here(),"/fichiers_tableurs"))) dir.create(paste0(here::here(),"/fichiers_tableurs"))
+chemin_xlsx <- paste0(here::here(),"/fichiers_tableurs/mes_donnees.xlsx")
+chemin_xls <- paste0(here::here(),"/fichiers_tableurs/mes_donnees.xls")
+# Téléchargement des fichiers tableurs
+download.file(telechargement_xlsx,destfile = chemin_xlsx,mode = "wb")
+download.file(telechargement_xls,destfile = chemin_xls,mode = "wb")
+```
+
+
+- Les chemins des fichiers nommés `chemin_xls` et `chemin_xlsx` sont maintenant définis. Voici comment les afficher :
+```{r consulter-chemin-xls-xlsx, eval=FALSE}
+print(chemin_xls)
+print(chemin_xlsx)
+```
 
-- télécharger [les jeux de données ici](https://github.com/InseeFrLab/utilitR/tree/master/import_donnees_tabulees_tests) puis le sauvegarder sur votre poste ;
-- définir dans `R` les chemins des fichiers nommés `chemin_xls` et `chemin_xlsx`. Voici un exemple :
+Dans vos travaux quotidiens, vous pouvez facilement définir vos propres chemins. Par exemple :  
 
-```{r, eval=FALSE}
-# Attention, vous devez adapter le chemin des fichiers à votre environnement de travail
+```{r eval=FALSE}
 chemin_xls  <- "C:/Users/mon_IDEP_Insee/Dossier_utilitR/mes_donnees/mes_donnees.xls"  
 chemin_xlsx <- "C:/Users/mon_IDEP_Insee/Dossier_utilitR/mes_donnees/mes_donnees.xlsx"
 ```
-
+
+<!-- Laisser le chunk suivant pour pouvoir exécuter les exemples de cette fiche -->
 ```{r, eval=TRUE, echo = FALSE}
 # Définir le chemin du fichier
 chemin_xls  <- "./import_donnees_tabulees_tests/mes_donnees.xls"
@@ -215,27 +243,50 @@ head(mesDonnees, 4)
 
 ### Introduction
 
-Le _package_ `readODS` propose deux fonctions d'importation de fichiers `ods` : `read_ods` et `read.ods`. La documentation du _package_ recommande d'utiliser `read_ods`. L'usage de cette fonction va être illustré à partir d'un jeu de données créé à partir de données présentes sur le site de l'Insee. Pour reproduire les exemples ci-dessous, vous devez :
+Le _package_ `readODS` propose deux fonctions d'importation de fichiers `ods` : `read_ods` et `read.ods`. La documentation du _package_ recommande d'utiliser `read_ods`. L'usage de cette fonction va être illustré à partir d'un jeu de données créé à partir de données présentes sur le site de l'Insee.  
+Pour reproduire les exemples ci-dessous, vous devez copier-coller le code suivant et l'exécuter sur votre poste.
+
+```{r téléchargement-ods, message=FALSE, warning=FALSE}
+# Installation du package {here} si besoin et chargement
+if (!require("here", character.only = TRUE)) {
+  install.packages("here", dependencies = TRUE)
+  library("here", character.only = TRUE)
+}
 
-- télécharger le jeu de données en format `ods` ici : `https://github.com/InseeFrLab/utilitR > import_donnees_tabulees_tests` puis le sauvegarder sur votre poste ;
-- définir dans `R` le chemin du fichier nommé `chemin_ods`. Voici un exemple :
+# Définition des liens vers le fichier ods
+telechargement_ods <- "https://github.com/InseeFrLab/utilitR/raw/master/import_donnees_tabulees_tests/mes_donnees.ods"
 
-```{r, eval=FALSE}
-# Attention, cet exemple doit être adapté à votre environnement de travail
-chemin_ods <- "C:/Users/mon_IDEP_Insee/Dossier_utilitR/mes_donnees/mes_donnees.ods"
+# Définition des chemins sur son poste
+if (!file.exists(paste0(here::here(),"/fichiers_tableurs"))) dir.create(paste0(here::here(),"/fichiers_tableurs"))
+chemin_ods <- paste0(here::here(),"/fichiers_tableurs/mes_donnees.ods")
+
+# Téléchargement du fichier ods
+download.file(telechargement_ods,destfile = chemin_ods,mode = "wb")
+```
+
+- Le chemin du fichier nommé `chemin_ods` est maintenant défini. Voici comment l'afficher :
+```{r consulter-chemin-ods, eval=FALSE}
+print(chemin_ods)
+```
+
+Dans vos travaux quotidiens, vous pouvez facilement définir vos propres chemins. Par exemple :  
+
+```{r eval=FALSE}
+chemin_ods  <- "C:/Users/mon_IDEP_Insee/Dossier_utilitR/mes_donnees/mes_donnees.ods"  
 ```
 
+<!-- Laisser le chunk suivant pour pouvoir exécuter les exemples de cette fiche -->
 ```{r, eval=TRUE, echo = FALSE}
 # Définir le chemin du fichier
 chemin_ods <- "./import_donnees_tabulees_tests/mes_donnees.ods"
 ```
+
 Il ne faut pas oublier de charger le _package_ avec `library`.
 
 ```{r, message = FALSE}
 library(readODS)
 ```
 
-
 ### Comment utiliser la fonction `read_ods()`
 
 Voici les principaux arguments et options de `read_ods()` :