correctifs

Author: pierre-lamarche

R/millesimesDisponibles.R

@@ -10,7 +10,7 @@
 millesimesDisponibles <- function(donnees) {
   ## check the parameter donnees takes a valid value
   donnees <- toupper(donnees)
-  liste_nom <- unlist(lapply(ld, function(x) return(x$nom)))
+  liste_nom <- toupper(unlist(lapply(ld, function(x) return(x$nom))))
   if (!donnees %in% liste_nom)
     stop("Le param\u00e8tre donnees est mal sp\u00e9cifi\u00e9, la valeur n'est pas r\u00e9f\u00e9renc\u00e9e")
   liste_possible <- ld[which(liste_nom == donnees)]

R/utile.R

@@ -21,7 +21,7 @@
 infosDonnees <- function(donnees, date = NULL, silencieux = FALSE) {
 
   donnees <- toupper(donnees) # pour rendre insensible à la casse
-  liste_nom <- vapply(ld, `[[`, "nom", FUN.VALUE = character(1))
+  liste_nom <- toupper(vapply(ld, `[[`, "nom", FUN.VALUE = character(1)))
   res <- ld[liste_nom == donnees]
 
   # 1 - identifiant introuvable

R/zzz.R

@@ -1,9 +1,20 @@
 .onLoad <- function(libname, pkgname) {
   #data(liste_donnees)
-  if (curl::has_internet())
-    ld_melodi <- httr::GET("https://minio.lab.sspcloud.fr/pierrelamarche/melodi/liste_donnees.json")
-    assign("ld", c(ld, jsonlite::fromJSON(httr::content(ld_melodi, as = "text", encoding = "utf-8"), 
-                                          simplifyDataFrame = FALSE)),
+  if (curl::has_internet()) {
+    requete_melodi <- httr::GET("https://minio.lab.sspcloud.fr/pierrelamarche/melodi/liste_donnees.json")
+    ld_melodi <- jsonlite::fromJSON(httr::content(requete_melodi, as = "text", encoding = "utf-8"), 
+                                    simplifyDataFrame = FALSE)
+    ld_melodi <- lapply(ld_melodi, function(x) {
+      within(x, {
+        if (!is.null(x$date_ref))
+          date_ref <- as.Date(date_ref, format = "%Y-%m-%d")
+        if(!is.null(x$separateur))
+          separateur <- paste0("quote(\"", separateur, "\")")
+      })
+    }
+    )
+    assign("ld", c(ld, ld_melodi),
            envir = asNamespace("doremifasol")
-          )
+    )
+  }
 }

tests/testthat/test_liste_donnees.R

@@ -23,9 +23,10 @@ test_that("pas de valeurs incongrues", {
 
   # lien (motif, pas existence)
   url_pattern <- "^https://www.insee.fr/fr/statistiques/fichier/\\d{5,}/.+\\.(zip|xls|xlsx|parquet)$"
-  api_url_pattern <- "^https://api.insee.fr/entreprises/sirene(/V3.11)?/sire[nt](/(liensSuccession|nonDiffusibles))?$"
+  api_sirene_url_pattern <- "^https://api.insee.fr/entreprises/sirene(/V3.11)?/sire[nt](/(liensSuccession|nonDiffusibles))?$"
+  api_melodi_url_pattern <- "^https://api.insee.fr/melodi/.*$"
   expect_true(
-    all(grepl(paste0(url_pattern, "|", api_url_pattern), df_ld$lien))
+    all(grepl(paste0(url_pattern, "|", api_sirene_url_pattern, "|", api_melodi_url_pattern), df_ld$lien))
   )
 
   # type
@@ -43,7 +44,7 @@ test_that("pas de valeurs incongrues", {
 
   # big_zip
   expect_true(
-    all(df_ld$big_zip[df_ld$zip] %in% c(TRUE, FALSE))
+    with(df_ld, all(big_zip[zip] %in% c(TRUE, FALSE)))
   )
 
   # premiere_ligne / derniere_ligne
@@ -64,3 +65,4 @@ test_that("pas de valeurs incongrues", {
   )
 
 })
+