error code to stx_availability()

andschar · Oct 4, 2021 · 9518919 · 9518919
1 parent cb31425
commit 9518919
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: standartox
-Version: 0.0.1.9001
-Date: 2021-10-02
+Version: 0.0.1.9002
+Date: 2021-10-04
 Title: Ecotoxicological Information from the Standartox Database
 Authors@R: c(
     person("Andreas", "Scharmüller",

diff --git a/R/standartox.R b/R/standartox.R
@@ -334,10 +334,13 @@ stx_meta = function(vers = NULL) {
 #' 
 stx_availability = function(res,
                             http_codes = c(200, 400)) {
-  if (inherits(res, 'try-error') || ! httr::status_code(res) %in% http_codes) {
-    msg = '
-The standartox web service seems currently unavailable. Please try again after some time. Should it still not work then, please file an issue here:
-https://github.com/andschar/standartox/issues'
+  if (inherits(res, 'try-error') ||
+      ! httr::status_code(res) %in% http_codes) {
+    msg = paste0(
+    'The standartox web service seems currently unavailable.
+    Please try again after some time. Should it still not work then, please file an issue here:
+https://github.com/andschar/standartox/issues
+Error code: ', res)
     stop(msg)
   }
 }