Use Zapier to Send a Slack Message

send_slack_message.R

#' Send a message to Slack
#'
#' To use, set options(zapier_slack_webhook="yourZapierPostWebhookHere")
#' 
#' @param message
#' @param channel
#' @param bot_name
#' @param bot_icon_url
#' @param image_url
#' @param emoji
#'
#' @return
#' @export
send_slack_message <- function(
  message = "",
  channel = "#testing",
  bot_name = NULL,
  bot_icon_url = NULL,
  image_url = NULL,
  emoji = NULL
) {
  httr::POST(
    url = getOption('zapier_slack_webhook'),
    body = list(
      message = message,
      channel = channel,
      bot_name = bot_name,
      bot_icon_url = bot_icon_url,
      image_url = image_url,
      emoji = emoji),
    encode = "json")
}