condense download failed message

bluegreen-labs · Aug 27, 2024 · 29ab64b · 29ab64b
1 parent d05bfe2
commit 29ab64b
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/R/service-ds.R b/R/service-ds.R
@@ -176,12 +176,11 @@ ds_service <- R6::R6Class("ecmwfr_ds",
 
       # trap (http) errors on download, return a general error statement
       if (httr::http_error(response)) {
-        if (fail_is_error) {
-          stop("Download failed with error ", response$status_code)
-        } else {
-          warning("Download failed with error ", response$status_code)
-          return(self)
-        }
+        warn_or_error(
+          paste0("Download failed with error ", response$status_code),
+          call. = FALSE,
+          error = fail_is_error
+        )
       }
 
       private$downloaded <- TRUE