R/attachment_format.R

In HongYanHuang/slackeonnier: Slackeonnier - send your alert to slack

#' Pack Plot, Text, and Color to attachment format
#'
#' @param former_text your text on attachment
#' @param status_color hex
#' @param image_url (optional) your plot url, must be https
#' @param image_title (optional) text
#' @return json file to attach
#' @examples
#' attachment_format('Order Status: Over High', '#FF0000', 'https://image.url', '20190901_Order')
#' @export
attachment_format <- function(former_text,
                              status_color,
                              image_url = NULL,
                              image_title = " ") {
  if(length(former_text) > 1) {stop("text must be a vector of length one")}
  if(is.na(strtoi(gsub("#", "", status_color), 16))) {stop("not a hex code color")}
  if(is.null(image_url)) {
    attachment <- jsonlite::toJSON(
      data.frame(text = former_text,
                 color = status_color,
                 mrkdwn_in = "text"))
    warning("No image url provided.")
  } else {
    attachment <- jsonlite::toJSON(
      data.frame(fallback = "ABC",
                 text = former_text,
                 color = status_color,
                 image_url,
                 mrkdwn_in = "text"))
  }
}