token_get <- function()

in R/keyring.R [77:83]

• 7 lines of code
• 2 McCabe index (conditional complexity)

token_get <- function() {
  if (token_exists()) {
    token_string <- secret_get(TOKEN)
    return(token_from_json(token_string))
  }
  stop("Token doesn't exist.")
}