move admin user check to better location

R/add_acr_methods.R

@@ -14,7 +14,7 @@
 #' - `name`: The name of the container registry.
 #' - `location`: The location/region in which to create the container registry. Defaults to this resource group's location.
 #' - `admin_user_enabled`: Whether to enable the Admin user. Currently this must be TRUE to allow Docker to access the registry.
-#' - `sku`: The SKU.
+#' - `sku`: Either "Basic", "Standard" (the default) or "Premium".
 #' - `wait`: Whether to wait until the ACR resource provisioning is complete.
 #' - `...`: Other named arguments to pass to the [az_resource] initialization function.
 #'

R/az_container_registry.R

@@ -77,6 +77,9 @@ public=list(
 
     list_credentials=function()
     {
+        if(!self$properties$adminUserEnabled)
+            stop("Admin user account is disabled", call.=FALSE)
+
         creds <- private$res_op("listCredentials", http_verb="POST")
         pwds <- sapply(creds$passwords, `[[`, "value")
         names(pwds) <- sapply(creds$passwords, `[[`, "name")
@@ -99,9 +102,6 @@ public=list(
         server <- paste0("https://", self$properties$loginServer)
         if(as_admin)
         {
-            if(!self$properties$adminUserEnabled)
-                stop("Admin user account is disabled", call.=FALSE)
-
             creds <- self$list_credentials()
             docker_registry(server, username=creds$username, password=creds$passwords[1], app=NULL)
         }