# NOT RUN {
vault <- key_vault("mykeyvault")
# get the storage account details
library(AzureStor)
stor <- AzureRMR::get_azure_login()$
get_subscription("sub_id")$
get_resource_group("rgname")$
get_storage_account("mystorageacct")
vault$storage$create("mystor", stor, "key1")
vault$storage$list()
vault$storage$get("mystor")
# specifying a regeneration period of 6 months
vault$storage$create("mystor", regen_period="P6M")
# setting management tags
vault$storage$create("mystor", tag1="a value", othertag="another value")
# backup and restore an account
bak <- vault$storage$backup("mystor")
vault$storage$delete("mystor", confirm=FALSE)
vault$storage$restore(bak)
# }
Run the code above in your browser using DataLab