R Еогеасп параллельный цикл не сохраняется

Question

При выполнении следующей фиктивный код:

P = 2 
library(foreach) 
library(doMC) 
registerDoMC(P)  
f = double(length = P) 

print('=== f values in loop ===') 
foreach(c = 1:P) %dopar% 
{ 
    f[c] = c 
    print(f[c]) 
} 

print('### f values after loop ###') 
for(c in 1:P){ print(f[c]) } 

я получаю следующий результат:

"=== f values in loop ===" 
1 
2 
"### f values after loop ###" 
0 
0 

Почему же f значения, присвоенные в цикле foreach не сохраняются?

В частности, почему f[1] и f[2] равны нулю после цикла foreach?

Спасибо!

Answer 1

У вас есть две проблемы в вашем коде:

1. Вы не назначенную результат foreach() к объекту.
2. Функция foreach не возвращает значение. (Строго говоря, функция возвращает значение print() которое NULL.)

Использование

f <- foreach(c = 1:P) %dopar% { c } 

Важное различие между for() в базовой R и foreach() является то, что все, что вы делаете внутри for() доступен в родительская среда for(). Тем не менее, foreach() является функцией, и что-либо внутри функции foreach() является локальным для среды функций.

В некотором смысле foreach() больше похож на lapply(), чем на for().