Better error handling in getCtsKey

MassBank · Oct 21, 2020 · 0010155 · 0010155
1 parent 9033bc4
commit 0010155
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: RMassBank
 Type: Package
 Title: Workflow to process tandem MS files and build MassBank records
-Version: 2.99.2
+Version: 2.99.3
 Authors@R: c(
     person(given = "RMassBank at Eawag", email = "massbank@eawag.ch",
     role=c("cre")),

diff --git a/R/webAccess.R b/R/webAccess.R
@@ -270,7 +270,11 @@ getCtsKey <- function(query, from = "Chemical Name", to = "InChIKey")
 		warning("CTS seems to be currently unavailable or incapable of interpreting your request")
 		return(NULL)
 	}
-
+
+	if(res$status_code != 200){
+	  warning(paste("CTS has return code", res$status_code))
+	  return(NULL)
+	}
 
 	r <- fromJSON(data)
 	if(length(r) == 0)