Fail better if imgur upload doesn't work (#1631)

yihui · Nov 7, 2018 · 0436208 · 0436208
1 parent 6c61415
commit 0436208
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/utils-upload.R b/R/utils-upload.R
@@ -41,6 +41,7 @@ imgur_upload = function(file, key = '9f3460e67f308f6') {
     config = httr::add_headers(Authorization = paste("Client-ID", key)),
     body = list(image = httr::upload_file(file))
   )
+  httr::stop_for_status(resp, "upload to imgur")
   res = httr::content(resp, as = "raw")
   res = if (length(res)) xml2::as_list(xml2::read_xml(res))
   # Breaking change in xml2 1.2.0