better errr message catcher, #42

Author: sckott

R/zzz.R

@@ -87,12 +87,20 @@ gist_DELETE <- function(url, auth, headers, ...){
 }
 
 process <- function(x){
-  stop_for_status(x)
+  stopstatus(x)
   stopifnot(x$headers$`content-type` == 'application/json; charset=utf-8')
-  temp <- content(x, as = "text")
+  temp <- httr::content(x, as = "text")
   jsonlite::fromJSON(temp, FALSE)
 }
 
+stopstatus <- function(x) {
+  if (x$status_code > 203) {
+    res <- httr::content(x)
+    errs <- sapply(res$errors, function(z) paste(names(z), z, sep = ": ", collapse = "\n"))
+    stop(res$message, "\n", errs, call. = FALSE)
+  }
+}
+
 check_auth <- function(x) if(!missing(x)) x else gist_auth()
 
 strextract <- function(str, pattern) {