From 85a74691959887ece4c06e93a3682e08ba62a123 Mon Sep 17 00:00:00 2001 From: Arthur DANJOU Date: Tue, 14 Oct 2025 11:16:14 +0200 Subject: [PATCH] =?UTF-8?q?R=C3=A9organisation=20du=20code=20pour=20am?= =?UTF-8?q?=C3=A9liorer=20la=20lisibilit=C3=A9=20et=20la=20structure=20de?= =?UTF-8?q?=20l'installation=20des=20packages?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- M2/Data Visualisation/init.R | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) diff --git a/M2/Data Visualisation/init.R b/M2/Data Visualisation/init.R index c7f32b7..87e506d 100644 --- a/M2/Data Visualisation/init.R +++ b/M2/Data Visualisation/init.R @@ -1,25 +1,24 @@ # Liste des packages à installer packages_to_install <- c( - "lattice", "grid", "ggplot2", "gridExtra", "locfit", "scales", - "formattable", "RColorBrewer", "plotly", "dplyr", "tidyr", - "rmarkdown", "ggthemes", "cowplot", "kableExtra", "ggridges", - "colorspace", "sf", "mapview", "tidyverse", "readxl", "readr", - "giscoR", "gapminder", "GGally", "ggfortify", "lubridate", "zoo", - "xts", "forecast", "feasts", "tseries", "tsibble", "fable" + "lattice", "grid", "ggplot2", "gridExtra", "locfit", "scales", + "formattable", "RColorBrewer", "plotly", "dplyr", "tidyr", + "rmarkdown", "ggthemes", "cowplot", "kableExtra", "ggridges", + "colorspace", "sf", "mapview", "tidyverse", "readxl", "readr", + "giscoR", "gapminder", "GGally", "ggfortify", "lubridate", "zoo", + "xts", "forecast", "feasts", "tseries", "tsibble", "fable" ) # Fonction pour installer les packages manquants install_if_absent <- function(package_name) { - if (!requireNamespace(package_name, quietly = TRUE)) { - install.packages(package_name) - message(paste("Package", package_name, "installé avec succès.")) - } else { - message(paste("Package", package_name, "déjà installé, installation ignorée.")) - } + if (!requireNamespace(package_name, quietly = TRUE)) { + install.packages(package_name) + message(paste("Package", package_name, "installé avec succès.")) + } else { + message( + paste("Package", package_name, "déjà installé, installation ignorée.") + ) + } } # Appliquer la fonction à la liste de packages lapply(packages_to_install, install_if_absent) - -# Note : Une fois les packages installés, n'oubliez pas de les charger dans votre session R -# avec la commande library(). Par exemple, library(tidyverse). \ No newline at end of file