move rg check to subscription class

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")

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")