# NOT RUN {
## This only works on Windows
kb <- backend_wincred$new()
kb$create_keyring("foobar")
kb$set_default_keyring("foobar")
kb$set_with_value("service", password = "secret")
kb$get("service")
kb$delete("service")
kb$delete_keyring("foobar")
# }
Run the code above in your browser using DataLab