trap funky url

bluegreen-labs · Aug 21, 2024 · e75aa99 · e75aa99
1 parent 6904149
commit e75aa99
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/wf_delete.R b/R/wf_delete.R
@@ -33,15 +33,16 @@ wf_delete <- function(
   key <- wf_get_key(user = user)
 
   #  get the response for the query provided
-  response <- httr::DELETE(
+  response <- try(httr::DELETE(
     url,
     httr::add_headers(
       "PRIVATE-TOKEN" = key
+      )
     )
   )
 
   # trap general http error, otherwise report success
-  if (httr::http_error(response)) {
+  if (httr::http_error(response) || inherits(response, "try-error")) {
     warning("Request not purged from queue, check download!")
   } else {
     if (verbose){