test/deleteRG.R

In Azure/AzureDSVM: Create and Manage Azure Data Science Virtual Machine(s) for Convenient Execution of Scalable and Elastic Analytics.

# Delete all my_* Resource Groups
#
# 2017-02-27 09:10:09 Graham Williams

library(stringr)
source("common.R")

# List the resource groups.

cat("Delete each of the following test resource groups.\n\n")

context %>%
  azureListRG() %>%
  extract2("name") %>%
  grep(pattern="^my_", value=TRUE) %T>%
  print() ->
rgs

# Check if the resource group already exists. Take note this script
# will not remove the resource group if it pre-existed.

for (r in rgs)
{
  # Note that to delete a resource group can take some time, like 10 minutes.

  cat(r, "\n")

  if (existsRG(context, r, LOC))
  {
    azureDeleteResourceGroup(context, r) %>% print()
  }
}