Deleting credentials keys

[irudnyts]

I guess it would be great to add the functionality of deleting credentials keys. I personally needed that when playing around with my various accounts.

The script could look like below:

library(dplyr)
library(stringr)

keys <- keyring::key_list() %>% 
    filter(str_detect(string = service, pattern = "^blastula-v1"))

apply(
    keys,
    1,
    function(key) keyring::key_delete(service = key[1], username = key[2])
)