R继续循环出错

Question

显然尝试和trycatch不起作用的这个问题！任何替代方案？

我试图让下面的示例代码的工作，而无需实际更改任何代码

result = 0 
for(i in 1:10){ 
    result = result + i 
    log("a") #I do not care about this error 
    result = result + i 
} 

这应该给结果= 110

如果我真的做手工复制循环内的部分并增加计数器它完美的作品：

result = 0 

#iteration 1 
i = 1 
result = result + i 
log("a") 
result = result + i 

#iteration 2 
i = i+1 
result = result + i 
log("a") 
result = result + i 

#iteration 3 
i = i+1 
result = result + i 
log("a") 
result = result + i 

#etc. 

但是我真正的代码有1000行，并且需要循环数百倍。

所以我想有一些选项

options(on.error.just.continue.the.next.line) = TRUE 

我读过有关尝试/ tryCatch，但我不明白它正确，我认为

Answer 1

如果你只是想代码运行在日志（ “A”）

result <- 0 
for(i in 1:10){ 
    result = result + i 
    try({log("a")}) #I do not care about this error 
    result = result + i 
} 

错误：你可以使用try代替非数值参数数学函数数学函数的非数字参数
日志（“a”）中的错误：非数字函数的错误（“a”）：数学函数的非数字参数
参数对数的数学函数
错误（“A”）：非数字参数的数学函数
错误日志（“A”）：非数字参数的数学函数
错误日志（“a”）的：数学函数的非数字参数
日志（“a”）中的错误：数学函数的非数字参数
log（“a”）中的错误：数学函数0的非数字参数 错误日志（ “A”）：非数值参数数学函数

result 
[1] 110 

要关闭的消息，使用

try({log("a")}, silent=TRUE) 

---

如果你是担心较大的代码块，您可以将其包装在{ }中，如下所示：

result <- 0 
for(i in 1:10){ 
    try({    # start code block 
    result = result + i 
    log("a")    # I do not care about this error 
    result = result + i 
    }, silent=TRUE)  # end of try function 
} 

result 
[1] 55 

这里，在for循环中完成第一个赋值。然后发生错误，“擦除”代码块的其余部分的执行，这是这里的第二个任务。但是，循环执行允许继续完成。

Answer 2

您可以尝试使用try catch块：

result = 0 
for (i in 1:10) { 
    result = result + i 
    tryCatch({ 
     log("a") #I do not care about this error 
    }, warning = function(w) { 
     # comment out the next print statement for a silent warning 
     print("warning") 
    }, error = function(e) { 
     # comment out the next print statement for a silent error 
     print("error") 
    }, finally = { 
     # cleanup 
    } 
    result = result + i 
}