R:使用foreach和blotter，投资组合已经存在错误。

Question

我正在使用便签包运行回溯测试，并使用foreach来加快速度。我遇到了一个错误，在这个错误中，blotter找到了具有相同名称的组合，即使它们应该在函数开始时被删除。下面是一个再现错误的示例代码

require('foreach')
require('doSNOW')
require('xts')
require('blotter')

backtestFunction <- function() {

  currency("USD")
  stock("AAPL", currency="USD", multiplier=1)
  Sys.setenv(TZ="US/Eastern")
  verbose = FALSE

  try(rm("account.Snazzy","portfolio.Snazzy",pos=.blotter),silent=TRUE)
  initPortf("Snazzy", "AAPL", initDate="2014-01-01", currency="USD")
  initAcct("Snazzy", portfolios="Snazzy", initDate="2014-01-01", initEq=1000, currency="USD")

  return (TRUE)
}

cl <- snow::makeCluster(8, type = "SOCK")
registerDoSNOW(cl)

results <- foreach(i=1:100, .combine=rbind, .packages=c('xts','blotter')) %dopar% {
  return (backtestFunction())
}
snow::stopCluster(cl)

这是错误

Error in { : 
  task 9 failed - "Portfolio Snazzy already exists, use updatePortf() or addPortfInstr() to update it."

不过，我知道投资组合和帐户对象存储在.blotter环境中。

1. 难道不预先在一个新的R会话中孕育每个工人吗?这样就不会有冲突了？
2. 为什么try(rm("account.Snazzy","portfolio.Snazzy",pos=.blotter),silent=TRUE)不起作用？
3. 我怎么才能在这里工作呢？

如果有关系，我使用的是R3.0.2，在Windows上运行RStudio。我在标签中包括了quantstrat，因为它们通常是一起使用的，所以它可能是一个经验丰富的quantstrat用户会知道修复。谢谢

Answer 1

问题是，".blotter“是自动输出到工人，而不是出口到doSNOW的”出口“环境，而不是全球环境。这并不会混淆便签包，但它确实会阻止您的"rm“命令从真正的"account.Snazzy”环境中删除"portfolio.Snazzy“和".blotter”。

一种解决方案是将.noexport=".blotter"添加到foreach中。另一个解决方案是在执行“rm”时更明确地指定环境：

try(rm("account.Snazzy","portfolio.Snazzy",pos=.GlobalEnv$.blotter),
    silent=TRUE)

doSNOW不会为每个任务生成一个工作人员，因为这可能会非常慢。即使对于本地工作人员，启动R会话的时间也可能比执行任务的时间(特别是在使用ssh的集群上)要多。更重要的是，如果工作人员执行多个任务，您可以向它们发送一次大型数据集，并将这些数据重用到许多任务中，从而分摊通信成本。