Question

为了为我的同事和我的R脚本建立一个连贯的异常处理接口，我想使用以下tryCatch结构。

外部tryCatch包裹在给定的R脚本周围。它用于捕获和处理需要脚本中止的致命错误。
用户脚本中特定于用户的tryCatch命令。这些应该抓住并且可能处理
- 2a上。非致命错误，不需要脚本堕胎
- 2B。致命错误，需要脚本中止。该错误由外部tryCatch [见1。]
- 2c中。带有其他错误信息的致命错误。外部tryCatch处理错误。

以下代码是我如何实现这些功能。但是，由于我不是R的专家，我想问一下这是否是一个好方法。具体做法是：

Q1。可以不在内部tryCatch中指定错误处理程序并等待外部tryCatch处理该错误（参见上面的2b。以及下面的代码）？

Q2。在处理程序中重新抛出相同的错误（参见上面/下面的2c）是否正确/被认为是良好的编码风格？

谢谢！

#outer tryCatch, see 1.
tryCatch({
  #user code block
  #2a. user specific tryCatch, object "vec" not defined
  tryCatch(print(vec),error=function(e) {print("Non-fatal error. Script execution continued.");print(e);})

  #2b. user specific tryCatch
  tryCatch(vec*2)

  #2c. user specific tryCatch
  tryCatch(vec*parameter1, error=function(e) {print("Additional fatal error information. Script execution aborted.");stop(e);})
  #end of user code block
},
     #outer tryCatch error handler in order to handle fatal errors
     error=function(e) {print("Fatal error");print(e);} 
    )

Answer 1

只捕获一些错误，将其他错误留给外部处理程序或根本没有处理程序，这是完全正常的。错误系统比通常使用的更灵活，因此对于重新抛出错误，您可能会考虑创建自己的错误类型

ourError <-
    function(original, message, class="ourError")
{
    msg <- paste(message, conditionMessage(original), sep="\n  ")
    structure(list(message = msg, call = conditionCall(original)),
              class = c(class, class(original)))
}

投掷和/或处理

tryCatch(vec*parameter1, error=function(e) {
    err <- ourError(e, "addition fatal info; script aborted")
    stop(err)
})

这样做的一个优点是可以使用ourError()

返回的类在顶级处理程序中指定其他行为

tryCatch({
    tryCatch(stop("oops"), error=function(e) {
        err <- ourError(e, "addition fatal info; script aborted",
                      c("fatal", "ourError"))
        stop(err)
    })
}, ourError=function(err) {
    message("We caught but didn't handle this:\n", err)
}, error =function(err) {
    message("This one got away: ", err)
})

R中的异常处理和堆栈展开

1 个答案: