token_delete <- function()

in R/keyring.R [93:100]

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

token_delete <- function() {
  if (token_exists()) {
    secret_delete(TOKEN)
    return(invisible(TRUE))
  } else {
    invisible(warning("No token was stored, so none was deleted!"))
  }
}