R/env.R

Defines functions slack_setenv slack_setenv_msg

.slack <- new.env()

# Per-team info.
assign("teams", list(), envir = .slack)
assign("creds", list(), envir = .slack)
assign("users", list(), envir = .slack)
assign("channels", list(), envir = .slack)
assign('file', list(), envir = .slack)

# General slackteams info.
assign(
  "cred_fields",
  c("channel", "incoming_webhook_url", "api_token", "username", "icon_emoji"),
  envir = .slack
)
assign(
  "env_fields",
  c("channel", "incoming_url_prefix", "api_token", "username", "icon_emoji"),
  envir = .slack
)
assign(
  "api",
  "https://slackr-auth.herokuapp.com/creds",
  envir = .slack
)
assign(
  "username",
  "slackr",
  envir = .slack
)
assign(
  "icon_emoji",
  "",
  envir = .slack
)
assign(
  "activeteam",
  NA_character_,
  envir = .slack
)

slack_setenv_msg <- function(team) {
  tmpl <- "slack environment variables are set to '%s' supplied definitions"
  message(sprintf(tmpl, team))
}

slack_setenv <- function(team) {
  Sys.setenv(SLACK_API_TOKEN = .slack$teams[[team]])
}
yonicd/slackteams documentation built on March 13, 2023, 6:26 a.m.