rt_ticket_history_comment.R

#' Add ticket history comment
#'
#' Add a comment to an existing ticket
#'
#' @inheritParams rt_ticket_attachment
#' @param comment_text (character) Text that to add as a comment
#'
#' @export
#'
#' @examples
#' \dontrun{
#' rt_ticket_history_comment()
#' }

rt_ticket_history_comment <- function(ticket_id, comment_text, rt_base_url = Sys.getenv("RT_BASE_URL")) {

  url <- rt_url(rt_base_url, "ticket", ticket_id, "comment")

  comment <- sprintf("id: %s\nAction: comment\nText: %s",
                     ticket_id, comment_text)

  httr::POST(url, body = list(content = comment))

  #implement attachment
  #https://rt-wiki.bestpractical.com/wiki/REST#Ticket_History_Comment
}