R/delete.R

In ropensci/gistr: Work with 'GitHub' 'Gists'

#' Delete a gist
#'
#' @param gist A gist object or something coerceable to a gist
#' @template all
#' @export
#' @examples \dontrun{
#' gists("minepublic")[[29]] %>% delete()
#' }

delete <- function(gist, ...) {
  gist <- as.gist(gist)
  res <- gist_DELETE(paste0(ghbase(), '/gists/', gist$id), 
                     auth = gist_auth(), headers = ghead(), ...)
  res$raise_for_status()
  message('Your gist has been deleted')
}