added simple error to post toot

schochastics · schochastics · commit 40d97c520856 · 2026-02-20T12:47:52.000+01:00
diff --git a/R/post.R b/R/post.R
@@ -84,6 +84,10 @@ post_toot <- function(
   )
   if (httr::status_code(r) == 200L) {
     sayif(verbose, "Your toot has been posted!")
+  } else {
+    cli::cli_abort(
+      "Failed to post toot. Status code: {httr::status_code(r)}"
+    )
   }
   invisible(r)
 }

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,10 @@ post_toot <- function(`
`84`	`84`	`)`
`85`	`85`	`if (httr::status_code(r) == 200L) {`
`86`	`86`	`sayif(verbose, "Your toot has been posted!")`
	`87`	`+ } else {`
	`88`	`+ cli::cli_abort(`
	`89`	`+ "Failed to post toot. Status code: {httr::status_code(r)}"`
	`90`	`+ )`
`87`	`91`	`}`
`88`	`92`	`invisible(r)`
`89`	`93`	`}`