Don't extract info from requests with status > 400

Might help with #74?
ropensci · Jan 28, 2016 · 0b45aac · 0b45aac
1 parent 483bcda
commit 0b45aac
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/base.r b/R/base.r
@@ -75,8 +75,9 @@ entrez_check  <- function(req){
   if (req$status_code == 414){
       stop("HTTP failure 414, the request is too large. For large requests, try using web history as described in the tutorial")
   }
-  message <- httr::content(req)
-  stop("HTTP failure: ", req$status_code, "\n", message, call. = FALSE)
+  #message <- httr::content(req)
+  #stop("HTTP failure: ", req$status_code, "\n", message, call. = FALSE)
+  stop("HTTP failure: ", req$status_code,  call. = FALSE)
 }