api_get fix of http error code handling

rte-antares-rpackage · Jul 4, 2023 · aa3ee3a · aa3ee3a
1 parent 4d8e619
commit aa3ee3a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -20,6 +20,7 @@ BUGFIXES :
 
 * `setSimulationPathAPI` generate new global parameter `sleep` to add timer to API request
 * Correction of `.importOutput()` to use `readAntares()` with `parallel == TRUE` in shiny application
+* `setSimulationPathAPI()` delete a redundant API request
 
 DATA : 
 

diff --git a/R/API-methods.R b/R/API-methods.R
@@ -57,8 +57,11 @@ api_get <- function(opts, endpoint, ..., default_endpoint = "v1/studies") {
   condition_status_check <- !(!is.na(url_elements[4]) & url_elements[4] %in% c("economy","adequacy") & result$status_code == 404)
   if(condition_status_check){
     mess_error <- content(result)
-    mess_error <- paste0("\n[description] : ", mess_error$description,
-                         "\n[IniReaderError]", mess_error$exception)
+    if(!is.null(names(mess_error)))
+      mess_error <- paste0("\n[description] : ", mess_error$description,
+                           "\n[IniReaderError] : ", mess_error$exception)
+    else
+      mess_error <- NULL
     stop_for_status(result, task = mess_error)
     }else 
       warn_for_status(result)