R/rt_ticket_merge.R

In rt: Interface to the 'Request Tracker' API

#' Merge two tickets
#'
#' @param origin (character|numeric) Ticket ID to merge into \code{into}
#' @param into (character|numeric) Ticket ID to merge \code{origin} into
#'
#' @return (numeric) The ID of ticket both tickets were merged into
#'
#' @export
#'
#' @examples
#' \dontrun{
#' # First, create two tickets
#' ticket_one <- rt_ticket_create("General")
#' ticket_two <- rt_ticket_create("General")
#'
#' # Then merge them together
#' ticket_merge(ticket_one, ticket_two)
#' }
rt_ticket_merge <- function(origin, into) {
  url <- rt_url("ticket", origin, "merge", into)
  response <- rt_POST(url)
  stopforstatus(response)

  message(response$body)
  invisible(into)
}