Comment basculer par programme entre% do% et% dopar% dans foreach?

Question

En changeant% dopar% en% do% en utilisant foreach, je peux exécuter le code séquentiellement. Comment puis-je faire cela par programme?

E.g. Je veux que le suivant mais avec une seule instruction 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

Vous pouvez utiliser ifelse choisir la fonction infix:

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