minor changes in the error catching code

boldsystems-central · Oct 1, 2024 · 0d2077c · 0d2077c
1 parent eef55c6
commit 0d2077c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/helper.POSTapi_download_w_json2df.R b/R/helper.POSTapi_download_w_json2df.R
@@ -25,7 +25,7 @@ post.api.res.fetch<-function (base.url,
     )
   )
 
-  if (httr::status_code(result) != 200)
+  if (httr::status_code(result) < 200 || httr::status_code(result)>=300)
   {
     stop(paste("Data could not be retrieved. Please check the get_by & identifiers. Please also re-confirm whether the API key has the necessary permissions to obtain the requested data."))
   }

diff --git a/R/helper.get.bin.project.dataset.pids.R b/R/helper.get.bin.project.dataset.pids.R
@@ -30,7 +30,7 @@ bin.dataset.project.pids<-function (get.data.input,
                      add_headers('accept' = 'application/json',
                                  'api-key' = apikey))
 
-  if (httr::status_code(get.data) != 200)
+  if (httr::status_code(get.data) < 200 || httr::status_code(get.data)>=300)
     {
     stop(paste("Data could not be retrieved. Please check the get_by & identifiers. Please also re-confirm whether the API key has the necessary permissions to obtain the requested data."))
   }
-Original file line number
+Diff line change
@@ Expand Up / @@ -25,7 +25,7 @@ post.api.res.fetch<-function (base.url, @@
         )
       )
-      if (httr::status_code(result) != 200)
+      if (httr::status_code(result) < 200 || httr::status_code(result)>=300)
       {
         stop(paste("Data could not be retrieved. Please check the get_by & identifiers. Please also re-confirm whether the API key has the necessary permissions to obtain the requested data."))
       }
@@ Expand Down @@