modification du onLoad, mise en fonction du chargement de melodi et test associé

Author: pierre-lamarche

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: doremifasol
 Title: Data on Insee Website
-Version: 0.5.6.0001
+Version: 0.5.6.0002
 Authors@R: c(
   person("Pierre", "Lamarche", email = "[email protected]", role = c("aut", "cre")),
   person("Pierre-Yves", "Berrard", role = "aut", email = "[email protected]"),

R/utile.R

@@ -125,3 +125,29 @@ listToDf <- function(liste, vars = NULL) {
   )
 
 }
+
+
+#' recupererMelodi ----------------------------------------------------
+#'
+#' Objectif : récupérer sous forme de liste le catalogue de Mélodi traité sur le SSP Cloud
+#'
+#' @param url le lien vers le json généré sur le SSP Cloud
+#'
+#' @returns un objet list correspondant à la structure du json
+#'
+#' @keywords internal
+recupererMelodi <- function(url) {
+  requete_melodi <- httr::GET(url)
+  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, "\")")
+    })
+  }
+  )
+  ld_melodi
+}

R/zzz.R

@@ -1,18 +1,9 @@
 .onLoad <- function(libname, pkgname) {
   #data(liste_donnees)
   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, "\")")
-      })
-    }
-    )
+    ld_melodi <- tryCatch(recupererMelodi("https://minio.lab.sspcloud.fr/pierrelamarche/melodi/liste_donnees.json"),
+                          error = function(e) packageStartupMessage("Le catalogue Melodi n'a pas pu \u00eatre t\u00e9l\u00e9charg\u00e9.\n", e$message))
+    
     assign("ld", c(ld, ld_melodi),
            envir = asNamespace("doremifasol")
     )

man/recupererMelodi.Rd

@@ -65,3 +65,9 @@ test_that("listToDf sur un exemple réduit", {
   )
 
 })
+
+## test chargement catalogue Melodi
+test_that("Chargement du catalogue Melodi", {
+  melodi <- recupererMelodi("https://minio.lab.sspcloud.fr/pierrelamarche/melodi/liste_donnees.json")
+  expect_type(melodi, "list")
+})