debug

Author: pierre-lamarche

R/chargerDonnees.R

@@ -89,8 +89,8 @@ chargerDonnees <- function(telechargementFichier, vars = NULL, ...) {
       res <- as.data.frame(do.call(readxl::read_xlsx, telechargementFichier$argsImport))
       } else {
       onglets <- readxl::excel_sheets(telechargementFichier$argsImport$path)
-      if (telechargementFichier$argsImport$sheet == "__MELODI__"){
-        onglets <- onglets[!onglets %in% c("Métadonnées", "Documentation")]
+      if (!is.null(telechargementFichier$argsImport$sheet) && telechargementFichier$argsImport$sheet == "__MELODI__"){
+        onglets <- onglets[!onglets %in% c("M\u00e9tadonn\u00e9es", "Documentation")]
       } else {
         onglet <- intersect(onglets, toupper(onglets))
       }

R/telechargerFichier.R

@@ -23,7 +23,7 @@ telechargerFichier <- function(donnees, date=NULL, telDir=getOption("doremifasol
 
   ## vérifie donnees et date. si ok les infos nécessaires sont extraites dans caract
   caract <- infosDonnees(donnees, date)
-
+  
   ## test de la connexion
   if (!curl::has_internet()) stop("aucune connexion Internet")
 
@@ -39,11 +39,15 @@ telechargerFichier <- function(donnees, date=NULL, telDir=getOption("doremifasol
   ## télécharge les fichiers csv, xls, xlsx...
   if (!caract$api_rest) {
 
-    if (grepl(paste0(".*\\.", caract$type), basename(caract$lien))){
-      nomFichier <- file.path(telDir, basename(caract$lien))
-    } else {
-      if (caract$zip){
+    if (caract$zip){
+      if (grepl(".*\\.zip", basename(caract$lien))){
+        nomFichier <- file.path(telDir, basename(caract$lien))
+      } else {
         nomFichier <- file.path(telDir, paste0(caract$nom, ".zip"))
+      }
+    } else {
+      if (grepl(paste0(".*\\.", caract$type), basename(caract$lien))){
+        nomFichier <- file.path(telDir, basename(caract$lien))
       } else {
         nomFichier <- file.path(telDir, paste0(caract$nom, ".", caract$type))
       }

tests/testthat/test_telechargerDonnees.R

@@ -143,7 +143,7 @@ test_that("Télécharger un produit csv zippé sur melodi", {
                   c("insee_data_frame", "data.frame"))
 })
 ## test dl de données sur mélodi - XLSX
-test_that("Télécharger un produit csv zippé sur melodi", {
+test_that("Télécharger un produit xlsx zippé sur melodi", {
   expect_type(telechargerDonnees("ANTIPOL_GLOBAL_T0_FR"),
                   "list")
 })