Add new function of stopDSVMAll

R/operateDSVM.R

@@ -82,3 +82,37 @@ operateDSVM <- function(context,
   
   return(status)
 }
+
+# Stop all DSVMs under subscription.
+
+#' @inheritParams deployDSVM
+
+stopDSVMAll <- function(context, location) {
+  # check if token is valid.
+
+  AzureSMR::azureCheckToken(context)
+
+  # check input arguments.
+
+  if (missing(context)) {
+    stop("Please specify AzureSMR context.")
+    assert_that(AzureSMR::is.azureActiveContext(context))
+  }
+  
+  rgs <- azureListRG(context)
+  
+  for (i in 1:nrow(rgs)) {
+    location <- rgs$location[i]
+    rg       <- rgs$name[i]
+    
+    vms <- azureListVM(context, rg, location)
+    
+    for (j in 1:nrow(vms)) {
+      vm <- vms$name[j]
+      
+      operateDSVM(context, rg, vm, operation="Stop")
+    }
+  }
+  
+  return(TRUE)
+}