代码之家 › 专栏 › 技术社区 › Jim Maas

为R包编译准备嵌套foreach循环时出错

r-package foreach r

Jim Maas · 技术社区 · 7 年前

描述这一点最简单的方法是显示代码。我有一个嵌套的foreach循环,可以很好地工作,尝试将其编译为R包,从而删除代码中的“library(foreach)”。我的函数如下所示:

Calcs <- function (...) {
results <- data.frame (foreach::foreach (j = 1:NumSim, .combine = acomb,
                                .options.mpi=opts1)
                       %:%
                       foreach::foreach (i = 1:PopSize, .combine=rbind,
                                .options.mpi=opts2,
                                .export = c (ls(globalenv())),
                                .packages = c("zoo", "msm", "FAdist"))
                       foreach::`%dopar%` {


                           output <- if(rbinom(1,1,ProSecPos) > 0)
                                  replicate(DayNum, eval(call("PrbInfBep")))
                                  else rep(0, DayNum)

                           output2 <- data.frame(khf(output))
                       }
                       )

我在第二个“foreach:foreach”语句的开头出现了一个“意外的符号”错误,如下所示。

  ./functions/Parallel.R:19:28: unexpected symbol
18:                                     .packages = c("zoo", "msm", "FAdist"))
19:                            foreach
                               ^

foreach::foreach:: %dopar%`

2 回复 | 直到 7 年前

F. Privé 7 年前

我想 foreach foreach:: #' @import foreach 在文档

收件人:

library(foreach)
test1 <- foreach::foreach (j = 1:20, .combine = c) %:%
  foreach::foreach(i = 1:10, .combine = c) %do% {
    i * j 
  }

你能做到的

test2 <- foreach::`%do%`(
  foreach::`%:%`(foreach::foreach(j = 1:20, .combine = c),
                 foreach::foreach(i = 1:10, .combine = c)), 
  {
    i * j 
  }
)

all.equal(test1, test2)

PS:你会收到一张关于 i 和 j globalVariables(c("i", "j")) 在你包裹里的某个地方。

Jesus 7 年前

在每一秒之后,你都没有一个%:%。请尝试使用此符号。。。

对于嵌套的foreach,应始终使用:

matrix<-foreach()%:%
foreach()%:%
foreach()%dopar%{

}

推荐文章

ShanZhengYang · useDynLib()错误和compileAttributes不返回任何内容:将C库嵌入到R包中

7 年前

landau · 在R Markdown/knitr报告中使用message()切碎输出

7 年前

aimene bahri · 如何使用Rstudio app在r中正确安装软件包?

7 年前

user8538535 · 闪亮服务器和安装软件包

7 年前

J L · 如何强制R在我的包的引文()输出中包含贡献者(或其他角色)?

7 年前

Jim Maas · 为R包编译准备嵌套foreach循环时出错

7 年前

epo3 Paulo E. Cardoso · 错误:pandoc文档转换失败,pkgdown/rmarkdown出现错误2

7 年前

Shivpe_R · 如何在R中将事务对象转换为Dataframe

8 年前

pachadotdev · 什么样的许可证是R软件包的最佳许可证?[已关闭]

8 年前

GSee · 显示包中所有内容的名称

12 年前