foreachの％do％と％dopar％の間でプログラム的に切り替える方法はありますか？

Question

foreachを使用しているとき％dopar％を％do％に変更することで、コードを順番に実行できます。これをプログラムで行うにはどうすればよいですか？

など。私は、次のことをしたいだけONE 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を使用することができます。あなたが `プリント（I）`の代わりに、コードの多くを持っている場合

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