在 R 中使用 doParallel 时，如何获取引发错误的行号？

Question

我试图弄清楚在使用 foreach 和 doParallel 时如何查明引发错误的行。这是一个例子：

foreach.example <- function() 
{
    require("doParallel")
    z <- foreach (i = 1:2) %do% 
    {
       x <- i + 'a'
    }
    return(z)
}

所以在 %do% 中有一个错误，我将一个字符添加到一个数字中。 （我在这里所说的一切也适用于 %dopar%，）。当我运行它时，我得到：

> foreach.example()
Error in { (from test_foreach.R#3) : task 1 failed - "non-numeric argument     to binary operator"

我无法从这个判断我在循环中的哪个位置出现错误，第 3 行是 foreach 行，而不是有问题的行。当我运行 debugger() 我得到：

> debugger()
Message:  Error in { (from test_foreach.R#3) : task 1 failed - "non-numeric    argument to binary operator"
    Available environments had calls:
1: foreach.example()
2: test_foreach.R#3: foreach(i = 1:2) %do% {
x <- i + "a"
}
3: e$fun(obj, substitute(ex), parent.frame(), e$data)
4: stop(simpleError(msg, call = expr))

请注意，第 2 帧通常会指示整个循环，因此我找不到实际引发错误的行。

如果我在没有 foreach 的情况下运行它，我会得到有用的信息：

regular.example <- function() 
{ 
    z <- list()
    for (i in 1:2) {
        x <- i + 'a'
        z <- c(z, list(x))
    }
    return(z)
}

>regular.example()
Error in i + "a" (from test_foreach.R#12) : non-numeric argument to binary operator

然后调试器将我带到引发异常的代码行。

关于使用 foreach 时如何用异常识别行号有什么想法吗？谢谢。

Answer 1

尝试修改您的 foreach 调用以包含 .verbose = TRUE

z <- foreach (i = 1:2, .verbose = T) %do% ...