Fixed get workers count function (#261)

Azure · Apr 30, 2018 · 9dfa599 · 9dfa599
1 parent 958d84f
commit 9dfa599
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/doAzureParallel.R b/R/doAzureParallel.R
@@ -36,7 +36,11 @@ registerDoAzureParallel <- function(cluster) {
 
 workers <- function(data) {
   id <- data$poolId
-  pool <- rAzureBatch::getPool(id)
+
+  config <- getConfiguration()
+  batchClient <- config$batchClient
+
+  pool <- batchClient$poolOperations$getPool(id)
 
   verboseFlag <- getOption("azureVerbose")
   if (!is.null(verboseFlag) && verboseFlag) {