Improved error handling of non json response

ialyabiev · Oct 30, 2013 · 936fb29 · 936fb29
1 parent 11cefb8
commit 936fb29
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/lucid.R b/R/lucid.R
@@ -162,7 +162,10 @@ handleResponse <- function(response, jsonFilter = NULL) {
 
   # otherwise just dump the whole thing
   else {
-    reportError(response$content)
+    if (response$status %in% 200:399)
+      response$content  
+    else
+      reportError(response$content)    
   }
 }