Fixed chunk size greater than arg length

Azure · Feb 17, 2017 · 54cbaeb · 54cbaeb
1 parent 66d55c0
commit 54cbaeb
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/doAzureParallel.R b/R/doAzureParallel.R
@@ -180,7 +180,13 @@ getparentenv <- function(pkgname) {
   remainingtasks <- ntasks %% chunkSize
 
   startIndices <- seq(1, length(argsList), chunkSize)
-  endIndices <- seq(chunkSize, length(argsList), chunkSize)
+
+  if(chunkSize > length(argsList)){
+    endIndices <- seq(length(argsList), length(argsList))
+  }
+  else{
+    endIndices <- seq(chunkSize, length(argsList), chunkSize)
+  }
 
   minLength <- min(length(startIndices), length(endIndices))