[R] 如何在循环语句中处理Error？

前言

在循环语句中遇到错误而使得脚本运行中断是一件十分头疼的事，尤其是面对高耗时的任务时更是如此，因此在循环语句中考虑对错误情形的处理非常有必要。在R语言中，主要有两个方案可以对运行中出现的错误进行处理，它们分别是try语句和tryCatch语句。

方案一：使用try语句

1. 使用方法
   在R语言中，try语句的用法如下所示:

try(expr, silent = FALSE,
    outFile = getOption("try.outFile", default = stderr()))

可以看到，try语句共有三个参数，常用的是前两个参数。第一个参数expr为我们所要使用的表达式，第二个参数silent表示当错误出现时是否需要报告错误信息，其输入值应为逻辑变量，默认为FALSE，即选择不保持“沉默”，当错误出现时会立即报告错误信息。

如果参数expr所代表的表达式可以正确运行，则try语句的输出即为该表达式的运行结果，如果表达式无法正确运行，则try语句会输出一个“try-error”类的不可见对象，因此可以通过if语句对try语句的输出结果进行判断从而进行下一步的处理。

2. 使用示例

A = list(a=1,b='abc',c=-2,d=3)                  # 运行log('abc')会报错，运行log(-2)会出现警告
B = list()
for (nm in names(A))
{
    x       <- A[[nm]]
    temp    <- try(log(x),silent=FALSE)
    if('try-error' %in% class(temp))            # 判断当前循环的try语句中的表达式是否运行正确
    {
       temp <- NA                               # 此处可以对运行错误的情况进行处理应对
    }
    B[[nm]] <- temp
}

方案二：使用tryCatch语句

1. 使用方法
   相较于try语句，tryCatch语句更为全面，能够处理和应对更为复杂的问题。其不仅能够处理表达式出现错误error的情形，还能够处理出现警告warning的情况。主要用法如下所示：

tryCatch(
         { expr },
         warning = function(w) { warning-handler-code },
         error = function(e) { error-handler-code }, 
         finally = { cleanup-code }
         )

可以看到，tryCatch语句的内部可以被划分为四个不同的部分。
第一个部分{ expr }为所要运行的表达式；
第二个部分warning = function(w) { warning-handler-code }用于处理第一个部分出现警告warning时的情况；
第三个部分error = function(e) { error-handler-code }用于处理第一个部分出现错误error时的情况；
第四个部分finally = { cleanup-code }用于最后收尾，不管前面是否出现警告warning或者错误error，该部分的代码都会被执行。
除了第一个部分不可缺省之外，其他几个部分都可以根据实际需要进行使用。
2.使用示例

A = list(a=1,b='abc',c=-2,d=3)                   # 运行log('abc')会报错，运行log(-2)会出现警告
B = list()
for (nm in names(A))
{
    x    <- A[[nm]]
    temp <- tryCatch(
                     { log(x) },
                     warning = function(w) { message('Waring @ ',x) ; return(NA) },
                     error = function(e) { message('Error @ ',x) ; return(NA) },
                     finally = { message('next...') }
                     )
    B[[nm]] <- temp
}