0

我构建了以下 mwe，它显示了一系列嵌套函数，这些函数在 foreach 语句中调用，并以 MPI 作为后端。所有这些都封装在一个 R 包中。问题是当我加载包，然后调用 fun3 时，我无法将 fun3on 的值从 TRUE 更改为 FALSE。有什么建议么？完整代码位于 https://github.com/jamaas/toymod3.git。

期待那个呼唤

乐趣 1（乐趣 3 上 = 假）

改变输出值，但它没有？

#' Test function level 1
#' @param var11 first variable for function 1
#' @param var12 second variable for function 1
#' @param var13 third variable for function 1
#' @export fun1

fun1 <- function (var11=10, var12=8, var13=5,
                  var21=0.05, var22=9.876,
                  fun3on=TRUE, ...) {

    results <- data.frame (foreach::`%dopar%`(
            foreach::`%:%`(foreach::foreach(j = 1:var11,
                                            .combine = cbind,
                                            .packages="toymod2",
                                            .export = "fun3on"),
            foreach::foreach (i = 1:var12, .combine=rbind)),
                   out3 <- replicate(var13, do.call(fun2, list(var21, var22)))
        )
)
## save outputs for subsequent analyses if required
saveRDS(results, file = paste("./outputs/", var13 ,"_", var12, "_", var11, "_",
                              format(Sys.time(), "%d_%m_%Y"), ".rds", sep=""))
return(results)
}

#' Test function level 2
#' @param var21 first variable for function 2
#' @param var22 second variable for function 2
#' @export fun2

fun2 <- function (var21=0.05, var22=9.876, ...) {
    out2 <- `if` (rpois(1, var21) > 0,
                    var22 * fun3(...),
                  0)
}

#' Test function level 3
#' @param var31 first variable for function 3
#' @param var32 second variable for function 3
#' @param var33 third variable for function 3
#' @param fun3on turn the formula on or off
#' @export fun3

fun3 <- function (var31=1.396, var32=14.387,
                  var33=3.219, fun3on = TRUE, ...) {
    out3 <- `if` (fun3on,
                  var31 * rnorm(1, mean=var32, sd= var33),
                  500)
}
4

2 回答 2

1

问题是你没有传递fun3on给fun2所以它不会传递给fun3.

在do.call(fun2, list(var21, var22))中，将其更改为do.call(fun2, list(var21, var22, fun3on = fun3on, ...))。确保将它们作为命名参数传递（我添加了点，因为您似乎有一些 in fun3）。

PS：除非您使用令人回味的名称，否则不要命名您的退货。

于 2017-09-10T20:55:19.447 回答
0

看起来很复杂。我会发表评论，但由于这个潜在的答案更长并且代表着回答你的问题的尝试，这里是

我的猜测是你的问题就在这里

在fun1你打电话fun2

fun2 <- function (var21=0.05, var22=9.876, ...) {
    out2 <- `if` (rpois(1, var21) > 0,
                    var22 * fun3(...),
                  0)
}

fun2fun3(...)不传递参数的调用

fun3 <- function (var31=1.396, var32=14.387,
                  var33=3.219, fun3on = TRUE, ...) {
    out3 <- `if` (fun3on,
                  var31 * rnorm(1, mean=var32, sd= var33),
                  500)
}

但是fun3on默认TRUE在fun3

也许如果你(...)改为(fun3on=fun3on)

fun2 <- function (var21=0.05, var22=9.876, ...) {
    out2 <- `if` (rpois(1, var21) > 0,
                    var22 * fun3(fun3on=fun3on),
                  0)
}

它可能有用？？？

于 2017-09-10T20:48:50.077 回答