in R/keyring.R [54:60]
adlib_clear_setup <- function() { for (secret in c(TOKEN, APP_ID, APP_SECRET)) { if (secret_exists(secret)) { secret_delete(secret) } } }