secret_get <- function()

in R/keyring.R [40:46]

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

secret_get <- function(secret = c(TOKEN, APP_ID, APP_SECRET)) {
  secret <- match.arg(secret)
  if (secret_exists(secret)) {
    return(suppressWarnings(keyring::key_get(service = SERVICE, username = secret)))
  }
  stop(glue::glue("Secret {secret} does not exist in keychain."))
}