if (FALSE) {
env <- backend_env$new()
env$set("r-keyring-test", username = "donaldduck")
env$get("r-keyring-test", username = "donaldduck")
Sys.getenv("r-keyring-test:donaldduck")
# This is an error
env$list()
# Clean up
env$delete("r-keyring-test", username = "donaldduck")
}
Run the code above in your browser using DataLab