如何在foreach中以％do％和％dopar％之間的編程方式切換？

Question

通過在使用foreach時將％dopar％更改為％do％，我可以按順序運行代碼。 我該如何以編程方式執行此操作？

例如，我想要以下但只有一個foreach聲明：

library(doParallel)
library(foreach)

registerDoParallel(cores = 4)

runner <- function(parallel = FALSE) {
  if (parallel)
    foreach(i=1:10) %dopar% {
      print(i)
    }
   else
    foreach(i=1:10) %do% {
      print(i)
    }
}

runner()
runner(TRUE)

Answer 1

您可以使用ifelse來選擇中綴函數：

runner <- function(parallel = FALSE) {
     `%myinfix%` <- ifelse(parallel, `%dopar%`, `%do%`)
     foreach(i=1:10) %myinfix% {
         print(i)
     } 
}