essaie de corriger le timeout

InseeFrLab · Dec 28, 2024 · 560d4a0 · 560d4a0
1 parent 22078d3
commit 560d4a0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utile.R b/R/utile.R
@@ -18,7 +18,7 @@ listerDonnees <- function(){
     url <- "https://api.insee.fr/melodie/catalog/all"
     appel_melodi <- tryCatch(httr::GET(url),
                                  error = function(e) message(e$message))
-    if (class(appel_melodi) == "response" & appel_melodi$status_code == 200){
+    if (length(appel_melodi) != 0 & appel_melodi$status_code == 200){
       catalogue <- jsonlite::fromJSON(httr::content(appel_melodi, as = "text", encoding = "UTF-8"),
                                       simplifyDataFrame = FALSE)
       res <- c(res,