Merge pull request #161 from gesistsa/fix-#160

gesistsa · Nov 6, 2024 · abda4de · abda4de
2 parents e051f13 + 2f3deee
commit abda4de
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/post.R b/R/post.R
@@ -83,6 +83,10 @@ upload_media_to_mastodon <- function(media, alt_text, token) {
         body = params,
         httr::add_headers(Authorization = paste0("Bearer ", token$bearer))
     )
+    if (httr::status_code(r) != 200) {
+        stop(paste0("Error while uploading: ", media, ". Status Code:", httr::status_code(r)))
+    }
+
     httr::content(r)$id
 }