# Fill in the blanks with appropriate values
library(AzureSMR)
client_id <- "---------------------"
app_key <- "---------------------"
tenant_id <- "---------------------"

sc <- createAzureContext(tenantID = tenant_id, clientID = client_id, authKey = app_key)
rgs <- azureListRG(sc)
rgs

azureListVM(sc, resourceGroup = rg, verbose = TRUE)

azureListHDI(sc)


# Create HDI Cluster ------------------------------------------------------

system.time(azureCreateHDI(sc,
                           clustername = "---------------------",
                           location = "centralus",
                           storageAccount = "---------------------",
                           resourceGroup = rg,
                           componentVersion = "3.5",
                           subscriptionID = "---------------------",
                           version = "3.5",
                           kind = "rserver",
                           workers = 4,
                           vmSize = "Standard_D13_V2",
                           adminUser = "admin",
                           adminPassword = "---------------------",
                           sshUser = "---------------------",
                           sshPassword = "---------------------")
            )