Azure · brnleehng · May 15, 2018 · May 7, 2018 · May 8, 2018 · May 9, 2018
diff --git a/R/autoscale.R b/R/autoscale.R
@@ -108,7 +108,7 @@ resizeCluster <- function(cluster,
       dedicatedMax,
       lowPriorityMin,
       lowPriorityMax,
-      maxTasksPerNode = pool$maxTasksPerNode
+      maxTasksPerNode = cluster$maxTasksPerNode
     ),
     autoscaleInterval = timeInterval
   )

diff --git a/R/batchApi.R → R/batch-api.R b/R/batchApi.R → R/batch-api.R
diff --git a/R/logging.R → R/file-operations.R b/R/logging.R → R/file-operations.R
diff --git a/R/storage_management.R → R/storage-api.R b/R/storage_management.R → R/storage-api.R
@@ -14,7 +14,7 @@ listStorageContainers <- function(prefix = "") {
   storageClient <- config$storageClient
 
   xmlResponse <-
-    storageClient$containerOperations$deleteContainer$listContainers(
+    storageClient$containerOperations$listContainers(
       prefix, content = "parsed")
 
   name <- getXmlValues(xmlResponse, ".//Container/Name")

diff --git a/R/commandLineUtilities.R → R/utility-commands.R b/R/commandLineUtilities.R → R/utility-commands.R
diff --git a/R/jobUtilities.R → R/utility-job.R b/R/jobUtilities.R → R/utility-job.R
diff --git a/R/stringUtilities.R → R/utility-string.R b/R/stringUtilities.R → R/utility-string.R
diff --git a/R/validationUtilities.R → R/utility-validation.R b/R/validationUtilities.R → R/utility-validation.R
diff --git a/R/utility.R b/R/utility.R
@@ -178,7 +178,6 @@ createOutputFile <- function(filePattern, url) {
   # parsedValue[2] is ""
   # parsedValue[3] is "accountname.blob.core.windows.net"
   # parsedValue[4] is "outputs?se=2017-07-31&sr=c&st=2017-07-12"
-
   parsedValue <- strsplit(url, "/")[[1]]
 
   baseUrl <- paste0(parsedValue[1], "//", parsedValue[3])
@@ -304,4 +303,4 @@ getHttpErrorMessage <- function(responseObj) {
   }
   detailMessage <- paste0(detailMessage, "\r\nodata.metadata: ", responseObj$odata.metadata)
   return(detailMessage)
-}
+}