Merge pull request #7 from muschellij2/master

updated xnat api for status
adigherman · Sep 10, 2020 · 74bccdb · 74bccdb
2 parents a74b847 + fa3fdcd
commit 74bccdb
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/xnat_api.R b/R/xnat_api.R
@@ -295,9 +295,12 @@ xnat_connect <- function(base_url, username=NULL, password=NULL, xnat_name=NULL)
                   postfields = data,
                   ssl.verifypeer = FALSE,
                   cookie = paste('JSESSIONID=', jsid, sep = ''))
-      if(parseHTTPHeader(header$value())['status'] != 200) {
-        message("No internet connection or data source broken.")
-        return(NULL)
+      if(parseHTTPHeader(header$value())['status'] >= 400) {
+        msg = paste0("XNAT call failed, message: ", 
+          parseHTTPHeader(header$value())['statusMessage'])
+        stop(msg)
+        # message("No internet connection or data source broken.")
+        # return(NULL)
       }
       return(reader$value())
     }