# NOT RUN {
server <- vaultr::vault_test_server(if_disabled = message)
if (!is.null(server)) {
client <- server$client()
# Shorter path for easier reading:
cubbyhole <- client$secrets$cubbyhole
cubbyhole
# Write a value
cubbyhole$write("cubbyhole/secret", list(key = "value"))
# List it
cubbyhole$list("cubbyhole")
# Read it
cubbyhole$read("cubbyhole/secret")
# Delete it
cubbyhole$delete("cubbyhole/secret")
# cleanup
server$kill()
}
# }
Run the code above in your browser using DataLab