# NOT RUN {
vault <- key_vault("mykeyvault")
vault$secrets$create("mysecret", "secret string")
vault$secrets$list()
secret <- vault$secrets$get("mysecret")
secret$value # 'secret string'
# specifying an expiry date
today <- Sys.date()
vault$secrets$create("mysecret", attributes=vault_object_attrs(expiry_date=today+365))
# setting management tags
vault$secrets$create("mysecret", tag1="a value", othertag="another value")
# }
Run the code above in your browser using DataLab