# NOT RUN {
az <- get_azure_login("myaadtenant")
sub <- az$get_subscription("subscription_id")
rg <- sub$get_resource_group("rgname")
res <- rg$get_resource(type="provider_type", name="resname")
sub$create_lock("lock1", "cannotdelete")
rg$create_lock("lock2", "cannotdelete")
# error! resource is locked
res$delete()
# subscription level
rg$delete_lock("lock2")
sub$delete_lock("lock1")
# now it works
res$delete()
# }
Run the code above in your browser using DataLab