Fix partial argument name; seq(along=x) should be seq(along.with=x) o…

…r seq_along(x) Fixes RevolutionAnalytics#2
HenrikBengtsson · Dec 26, 2020 · e4fed47 · e4fed47
1 parent d74d25d
commit e4fed47
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/pkg/R/doMC.R b/pkg/R/doMC.R
@@ -45,7 +45,7 @@ registerDoMC <- function(cores=NULL, ...) {
   rm(list=old.optnames, pos=.options)
 
   # set new options
-  for (i in seq(along=opts)) {
+  for (i in seq_along(opts)) {
     assign(optnames[i], opts[[i]], pos=.options)
   }
 
@@ -189,7 +189,7 @@ doMC <- function(obj, expr, envir, data) {
   }
 
   # call the accumulator with all of the results
-  tryCatch(accumulator(results, seq(along=results)), error=function(e) {
+  tryCatch(accumulator(results, seq_along(results)), error=function(e) {
     cat('error calling combine function:\n')
     print(e)
     NULL