diff --git a/.gitignore b/.gitignore index 699f7a7a..73c6b0c2 100644 --- a/.gitignore +++ b/.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* \ No newline at end of file +/resources/rmarkdown/chunk* diff --git a/03_Fiches_thematiques/Fiche_import_tableurs.qmd b/03_Fiches_thematiques/Fiche_import_tableurs.qmd index 63224f9e..bc75759d 100644 --- a/03_Fiches_thematiques/Fiche_import_tableurs.qmd +++ b/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" ``` - + + ```{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" ``` + ```{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()` :