Comment retourner null pour la fonction personnalisée utilisée dans% dopar%?

Question

Je veux retourner NULL avec une fonction personnalisée utilisée dans une boucle parallèle foreach. L'utilisation est que, si certains résultats ne remplissent pas certains critères, ce résultat ne sera pas stocké et il sera filtré comme une étape de post-traitement.

Cependant, retourne mon programme

tâche 1 a échoué - "remplacement a une longueur zéro"

Le problème peut être reproduit avec le code suivant:

library(doParallel) 
Input <- c(F,T,F) 
f.parallel <- function(x){ 
    ifelse(x,T,NULL) 
} 
no_cores <- detectCores()-1 
    # for mac OS, linux 
c1 <- makeCluster(no_cores,type = "FORK") 
    # for windows 
    # cl <- makeCluster(no_cores) 
    # clusterExport(cl, list("Input","f.parallel")) 
registerDoParallel(cl) 
output <- foreach(i=1:length(Input),.combine = cbind) %dopar% f.parallel(Input[i]) 

stopCluster(c1) 

Answer 1

Essayez f.parallel <- function(x) if(x) TRUE. ifelse() ne vous permettra pas de retourner NULL.

Lorsque cbind() est appelée pour combiner les résultats de votre boucle, les éléments NULL seront supprimés. Si vous souhaitez les filtrer dans une étape de post-traitement, je vous recommande d'utiliser ifelse(x, TRUE, NA).