remplace ld par listerDonnees() (qui requete sur le catalogue Melodi)

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 <- unlist(lapply(listerDonnees(), 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

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