#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.