1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#' Delete status of user's Twitter account `r lifecycle::badge("deprecated")`
#'
#' Deletes a status of user's profile.
#' @inheritParams post_tweet
#' @export
#' @references <https://developer.twitter.com/en/docs/twitter-api/v1/tweets/post-and-engage/api-reference/post-statuses-destroy-id>
#' @seealso [tweet_delete()] [`rtweet-deprecated`]
post_destroy <- function(destroy_id, token = NULL) {
stopifnot(is.character(destroy_id) && length(destroy_id) == 1)
query <- sprintf("/1.1/statuses/destroy/%s", destroy_id)
r <- TWIT_post(token, query)
class(r) <- c("tweet_deleted", class(r))
message("Your tweet has been deleted!")
return(invisible(r))
}
|
