diff --git a/R/az_resgroup.R b/R/az_resgroup.R index d0c09c2..bb3a260 100644 --- a/R/az_resgroup.R +++ b/R/az_resgroup.R @@ -101,12 +101,6 @@ public=list( invisible(NULL) }, - check=function() - { - res <- private$rg_op(http_verb="HEAD", http_status_handler="pass") - httr::status_code(res) < 300 - }, - list_templates=function() { cont <- private$rg_op("providers/Microsoft.Resources/deployments") diff --git a/R/az_subscription.R b/R/az_subscription.R index 93c532a..d9dde7c 100644 --- a/R/az_subscription.R +++ b/R/az_subscription.R @@ -123,6 +123,13 @@ public=list( self$get_resource_group(name)$delete(confirm=confirm) }, + resource_group_exists=function(name) + { + res <- call_azure_rm(self$token, self$id, construct_path("resourceGroups", name), + http_verb="HEAD", http_status_handler="pass") + httr::status_code(res) < 300 + }, + list_resources=function() { cont <- call_azure_rm(self$token, self$id, "resources")