r - 你如何在 R 中引用函数的环境？

Question

我收到以下错误，因为我认为我正在做的 clusterExport()(parallel 包)指的是错误的环境:

Error in get(name, envir = envir) : object 'simulatedExpReturn' not found

我在一个函数中得到这个，特别是在这部分的 clusterExport() 行:

  simulatedExpReturn = list()

  # Calculate the number of cores
  no_cores <- detectCores()

  # Initiate cluster
  cl <- makeCluster(no_cores)

  clusterExport(cl, c("simulatedExpReturn",
                  "covariance",
                   "numAssets",
                   "assetNames",
                   "numTimePoints-lag",
                   "stepSize"), envir = environment(Michaud1998MonteCarlo))

协方差、numAssets、assetNames、numTimePoints-lag 和 stepSize都传递到函数中。我也试过 envir = envir 和 envir = .GlobalEnv 都没有用。

如何解决这个问题？

Answer 1

这是一个范围问题，clusterExport 函数正在指定环境中搜索您的对象，并将它们导出到每个处理器的子环境。它不会搜索您定义了 simulatedExpReturn 的 .GlobalEnv。

这就是以下返回 1 而不是空列表的原因:

> Michaud1998MonteCarlo <- new.env()
> simulatedExpReturn = list()
> assign("simulatedExpReturn", 1, envir = Michaud1998MonteCarlo)
> 
> # Calculate the number of cores
> no_cores <- detectCores()
> 
> # Initiate cluster
> cl <- makeCluster(no_cores)
> 
> clusterExport(cl, c("simulatedExpReturn"), envir = Michaud1998MonteCarlo)
> clusterCall(cl, function() simulatedExpReturn)
[[1]]
[1] 1

[[2]]
[1] 1

[[3]]
[1] 1

[[4]]
[1] 1

要解决，只需在运行 clusterExport 之前将值分配给环境:

assign("simulatedExpReturn", list(), envir = Michaud1998MonteCarlo)