R/post_destroy.R

In mkearney/rtweet: Collecting Twitter Data

#' Delete status of user's Twitter account
#'
#' 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>
#' @examples
#' \dontrun{
#' pt <- post_tweet()
#' crt <- httr::content(pt)
#' post_destroy(crt$id_str)
#' }
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)
  message("Your tweet has been deleted!")
  return(invisible(r))
}