names(cred_funs_list())
creds_one <- function(scopes, ...) {}
cred_funs_add(creds_one)
cred_funs_add(one = creds_one)
cred_funs_add(one = creds_one, two = creds_one)
cred_funs_add(one = creds_one, creds_one)
# undo all of the above and return to default
cred_funs_set_default()
Run the code above in your browser using DataLab