if (FALSE) {
rg <- AzureRMR::get_azure_login()$
get_subscription("subscription_id")$
get_resource_group("rgname")
myacr <- rg$get_acr("myregistry")
myacr$list_credentials()
myacr$list_policies()
# see who has push and pull access
myacr$list_role_assignments()
# grant a Kubernetes cluster pull access
myaks <- rg$get_aks("myaks")
myacr$add_role_assignment(myaks, "Acrpull")
# get the registry endpoint (for interactive use)
myacr$get_docker_registry()
# get the registry endpoint (admin user account)
myacr$get_docker_registry(as_admin=TRUE)
}
Run the code above in your browser using DataLab