R/K9_auth.R

#' Authentication for 'Datadog'
#'
#' Set API Key And Application Key
#'
#' @export
k9_auth <- function() {
  Sys.setenv(DATADOG_API_KEY = ask_for_secret("API Key"))
  Sys.setenv(DATADOG_APP_KEY = ask_for_secret("Application Key"))
}

ask_for_secret <- function(prompt) {
  if(rstudioapi::isAvailable()) {
    rstudioapi::askForPassword(prompt)
  } else {
    cat(prompt)
    readLines(n = 1L)
  }
}

Try the datadogr package in your browser

Any scripts or data that you put into this service are public.

datadogr documentation built on May 2, 2019, 6:04 a.m.