CI2 : modif curl download pour DJU

.gitlab-ci.yml

@@ -20,7 +20,7 @@ building:
   script:
     - mkdir -p -m777 $R_LIBS_USER
     - Rscript -e '.libPaths(c(Sys.getenv("R_LIBS_USER"), .libPaths()));remotes::install_deps(dependencies = TRUE, upgrade = "never")'
-    - Rscript -e '.libPaths(c(Sys.getenv("R_LIBS_USER"), .libPaths()));remotes::install_cran(c("pkgdown", "DT"), upgrade = "never")'
+    - Rscript -e '.libPaths(c(Sys.getenv("R_LIBS_USER"), .libPaths()));remotes::install_cran(c("pkgdown", "DT", "curl", "RCurl"), upgrade = "never")'
     - Rscript -e '.libPaths(c(Sys.getenv("R_LIBS_USER"), .libPaths()));devtools::check()'
 
 # To have the coverage percentage appear as a gitlab badge follow these

R/prep_dju.R

@@ -5,7 +5,7 @@
 #' @param reg : le code region au format texte
 #' @param an : l'annee observee au format numerique
 #' @param coeff_dju : un coefficient qui permet de ramener l'indice de rigueur (oscillant autour de 1) dans l'echelle des consommations regionales (oscillant entre 2 et 70 TWh selon les region), 25 par exemple pour les Pays de la Loire
-#' @param method_tel : la méthode de téléchargement employee par `download.file` pour rapatrier les fichiers du SDES, mise a "curl" par defaut
+#' @param method_tel : la méthode de téléchargement employee par `download.file` pour rapatrier les fichiers du SDES, mise a "auto" par defaut
 #'
 #' @return un dataframe presentant l'indice de rigueur pour la France et la region observee, depuis 2013, pret a être incorpore dans le graphes des consommations
 #' 
@@ -25,10 +25,10 @@ prep_dju <- function(url_dju_nat = "https://www.statistiques.developpement-durab
                      reg = "52", an = 2020, coeff_dju = 25, method_tel = "curl") {
   path <- tempdir()
   utils::download.file(url = url_dju_nat, 
-                destfile = paste0(path, "/dju_nat.xlsx"), method = "curl")
+                destfile = paste0(path, "/dju_nat.xlsx"), method = method_tel)
   
   utils::download.file(url = url_dju_reg,
-                destfile = paste0(path, "/dju_reg.xlsx"), method = "curl")
+                destfile = paste0(path, "/dju_reg.xlsx"), method = method_tel)
   
   dju_nat <- readxl::read_xlsx(path =  paste0(path, "/dju_nat.xlsx"), sheet = 1, skip = 2, n_max = 3) %>% 
     dplyr::mutate(var = tricky::str_standardize(.data$...1) %>% gsub("dju_de_reference_moyenne_sur_la_periode_de_reference_", "dju_ref_1986_2015", .),