From 9dfa59925d47f90183e442b47529cdb3e7e81d8e Mon Sep 17 00:00:00 2001
From: Brian <l.brian.hoang@gmail.com>
Date: Mon, 30 Apr 2018 09:16:14 -0700
Subject: [PATCH] Fixed get workers count function (#261)

---
 R/doAzureParallel.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/doAzureParallel.R b/R/doAzureParallel.R
index bfe1aee4..a29d22f7 100644
--- 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) {