# NOT RUN {
# recommended way of retrieving a resource: via a resource group object
stor <- resgroup$get_storage_account("mystorage")
# list account access keys
stor$list_keys()
# regenerate a key
stor$regen_key(1)
# generate a shared access signature for blob storage, expiring in 7 days time
today <- Sys.time()
stor$get_account_sas(expiry=today + 7*24*60*60, services="b", permissions="rw")
# storage endpoints
stor$get_blob_endpoint()
stor$get_file_endpoint()
# }
Run the code above in your browser using DataLab