在一个函数中,我需要mclapply
按列表中的每个项目运行,它还应该使用半全局变量var.1
。我不想添加var.1
到每个列表项中,因为它会占用太多内存。这是说明问题的代码:
library(parallel)
list.1 <- list(1,2,3,4)
myInnerFunction <- function(xx) {
return(xx+var.1)
}
myOuterFunction <- function(list.x) {
var.1 <- 17
tmp.1 <- mclapply(list.x, myInnerFunction, mc.cores=6)
return(tmp.1)
}
results <- myOuterFunction(list.x=list.1)
[1] "Error in FUN(X[[1L]], ...) : object 'var.1' not found\n"
results[[1]] # This should be 18
我怎样才能传递var.1
给mclapply
?var.1
必须在里面声明myOuterFunction
。