Sử dụng nguồn() trong vòng lặp song song foreach

Question

Đây là ví dụ về đồ chơi để minh họa sự cố của tôi.

library(foreach) 
library(doMC) 
registerDoMC(cores=2) 

foreach(i = 1:2) %dopar%{ 
    i + 2 
} 
[[1]] 
[1] 3 

[[2]] 
[1] 4 

Cho đến nay rất tốt ...

Nhưng nếu mã i + 2 được lưu trong file addition.R và tôi gọi đó là tập tin sử dụng source() sau đó

> foreach(i = 1:2) %dopar%{ 
+ source("addition.R") 
+ } 
Error in { : task 1 failed - "object 'i' not found" 

Answer 1

tôi không thể tái tạo đầy đủ của bạn đồ chơi, nhưng tôi đã có một vấn đề quen thuộc, mà tôi đã có thể giải quyết bằng cách:

source(file, local = TRUE) 

nên phân tích cú pháp nguồn trong môi trường địa phương, tức là nhận ra i.

Answer 2

Nhận xét của NiceE và câu trả lời của Sosel đã giải quyết vấn đề này; khi gọi số source(file), giá trị mặc định là source(file, local = FALSE), có nghĩa là mã trong tệp có nguồn gốc được đánh giá trong môi trường toàn cầu ("không gian làm việc của người dùng") và có, cf. ?source. Lưu ý rằng không có biến số i trong môi trường toàn cầu. Giải pháp là đảm bảo tệp có nguồn gốc trong môi trường gọi là tệp, tức là sử dụng source(file, local = TRUE).

Giải pháp:

library("foreach") 

y <- foreach(i = 1:2) %dopar% { 
    i + 2 
} 
str(y) 

doMC::registerDoMC(cores = 2L) 
y <- foreach(i = 1:2) %dopar% { 
    source("addition.R", local = TRUE) 
} 
str(y) 

Ví dụ về cùng một vấn đề với một vòng lặp for():

Thực tế là source() được đánh giá trong môi trường toàn cầu mà là khác nhau từ môi trường gọi nơi i cuộc sống cũng có thể được được minh họa bằng cách sử dụng vòng lặp thông thường bằng cách chạy vòng lặp for trong môi trường khác so với toàn cục, ví dụ bên trong một hàm hoặc bằng cách:

local({ 
    for(i in 1:2) { 
    source("addition.R") 
    } 
}) 

mang đến cho:

Error in eval(ei, envir) : object 'i' not found 

Bây giờ, lý do tại sao trên foreach(i = 1:2) %dopar% { source("addition.R") } làm việc với registerDoSEQ()khi và chỉ khi gọi từ môi trường toàn cầu, đó là sau đó các foreach iteration được đánh giá trong môi trường gọi, đó là môi trường toàn cầu, đó là môi trường mà sử dụng source(). Tuy nhiên, nếu sử dụng local(foreach(i = 1:2) %dopar% { ... }) thì việc này cũng không tương tự với cuộc gọi local(for(i in 1:2) { ... }) ở trên.

Kết luận: không có phép thuật nào xảy ra, nhưng để hiểu nó hơi tẻ nhạt.

Answer 3

Cuối cùng tôi đã giải quyết được sự cố bằng cách chuyển đổi nguồn ("bổ sung.R") thành một hàm và chỉ cần chuyển các biến vào đó. Tôi không biết tại sao nhưng các giải pháp được đề xuất dựa trên source(file, local = TRUE) không hoạt động.