Merge pull request #239 from rte-antares-rpackage/feature/scenarized_bc

api_put() update to return server description + exception message
rte-antares-rpackage · Mar 18, 2024 · 2d0f86c · 2d0f86c
2 parents 7a6dd63 + c148d2a
commit 2d0f86c
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/API-methods.R b/R/API-methods.R
@@ -132,7 +132,13 @@ api_put <- function(opts, endpoint, ..., default_endpoint = "v1/studies") {
     config,
     ...
   )
-  stop_for_status(result)
+  api_content <- content(result)
+  if(!is.null(names(api_content)))
+    api_content <- paste0("\n[Description] : ", api_content$description,
+                          "\n[Exception] : ", api_content$exception)
+  else
+    api_content <- NULL
+  stop_for_status(result, task = api_content)
   content(result)
 }