R/tokens.R

In mattwarkentin/halo: High-Level Interface to Halo Infinite API

#' Halo Infinite API Token Management
#'
#' Get or set your Halo Infinite API access token as an environment variable.
#'   Calling `set_HaloDotAPI_token()` without the `token` argument will allow
#'   the user to provide their token in a pop-up window using
#'   `askpass::askpass()` to avoid entering the token into the `R` terminal.
#'
#' @inheritParams HaloDotAPI
#'
#' @return `get_HaloDotAPI_token()` invisibly returns the API token if it is
#'   found as an environment variable.
#'
#' @export
get_HaloDotAPI_token <- function() {
  token <- Sys.getenv('HALODOTAPI_TOKEN')
  if (identical(token, '')) {
    rlang::abort('No Halo Infinite API key found!')
  }
  invisible(token)
}

#' @export
#' @rdname get_HaloDotAPI_token
set_HaloDotAPI_token <- function(token = NULL) {
  if (rlang::is_null(token)) {
    token <- askpass::askpass('Please enter your HaloDotAPI token')
  }
  Sys.setenv('HALODOTAPI_TOKEN' = verify_scalar_chr(token, 'token'))
}