added error when media couldn't be uploaded

gesistsa · Nov 6, 2024 · 2f3deee · 2f3deee
1 parent e051f13
commit 2f3deee
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
 }