arthur/ArtStudies
1
0
Fork 0
mirror of https://github.com/ArthurDanjou/ArtStudies.git synced 2026-01-14 15:54:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

Réorganisation du code pour améliorer la lisibilité et la structure de l'installation des packages

Browse Source
This commit is contained in:
Arthur Danjou
2025-10-14 11:16:14 +02:00
parent 5af3c76113
commit 85a7469195
1 changed files with 14 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
M2/Data Visualisation/init.R
View File

@@ -1,25 +1,24 @@
# Liste des packages à installer # Liste des packages à installer
packages_to_install <- c( packages_to_install <- c(
"lattice", "grid", "ggplot2", "gridExtra", "locfit", "scales", "lattice", "grid", "ggplot2", "gridExtra", "locfit", "scales",
"formattable", "RColorBrewer", "plotly", "dplyr", "tidyr", "formattable", "RColorBrewer", "plotly", "dplyr", "tidyr",
"rmarkdown", "ggthemes", "cowplot", "kableExtra", "ggridges", "rmarkdown", "ggthemes", "cowplot", "kableExtra", "ggridges",
"colorspace", "sf", "mapview", "tidyverse", "readxl", "readr", "colorspace", "sf", "mapview", "tidyverse", "readxl", "readr",
"giscoR", "gapminder", "GGally", "ggfortify", "lubridate", "zoo", "giscoR", "gapminder", "GGally", "ggfortify", "lubridate", "zoo",
"xts", "forecast", "feasts", "tseries", "tsibble", "fable" "xts", "forecast", "feasts", "tseries", "tsibble", "fable"
) )
# Fonction pour installer les packages manquants # Fonction pour installer les packages manquants
install_if_absent <- function(package_name) { install_if_absent <- function(package_name) {
if (!requireNamespace(package_name, quietly = TRUE)) { if (!requireNamespace(package_name, quietly = TRUE)) {
install.packages(package_name) install.packages(package_name)
message(paste("Package", package_name, "installé avec succès.")) message(paste("Package", package_name, "installé avec succès."))
} else { } else {
message(paste("Package", package_name, "déjà installé, installation ignorée.")) message(
} paste("Package", package_name, "déjà installé, installation ignorée.")
)
}
} }
# Appliquer la fonction à la liste de packages # Appliquer la fonction à la liste de packages
lapply(packages_to_install, install_if_absent) 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).