R/slack.R

In folkehelseinstituttet/fd: Depreciated - to be removed

Defines functions s_webhook slack

Documented in slack

s_webhook <- function() {
  Sys.getenv("SLACK_WEBHOOK", "X")
}

#' slack
#' @param txt a
#' @export
slack <- function(txt) {
  httr::POST(
    url = s_webhook(),
    encode = "json",
    body = list(
      text = txt
    )
  )
}