如何忽略/跳过R中执行的异常？[副本]

Question

我尝试了在这里和其他地方找到的多个例子，但它总是无法满足我的需要。

我的R脚本只是一个配置验证脚本，它会检查以确保用户的环境设置正确。因此，我想尝试5个不同的步骤，并报告每个步骤的状态，以便用户可以立即修复所有问题。例如，我的第一步测试与数据库的连接，如果失败，我想打印一条消息并继续执行步骤2。但它总是在出错时停止执行，所以我只会遇到失败，然后就再也没有了。

我正在使用RScript从命令行运行脚本。W64上的exe。这是我的基本tryCatch，我用error函数进行了尝试，没有，没有任何区别，它总是在出错时中断。

tryCatch(
    expr = {
       res<- dbGetQuery(con, sql)
       print("SQL query results:")
       print(res)
    }
)

Answer 1

您只是在错误发生时没有处理它。下面是一个reprex，演示如何在错误发生时捕获错误：

function_that_always_fails <- function() stop("I failed")

exception_catcher <- function(e) "Carry on regardless"

tryCatch(expr  = function_that_always_fails())
#> Error in function_that_always_fails(): I failed

tryCatch(expr  = function_that_always_fails(),
         error = exception_catcher)
#> [1] "Carry on regardless"

或者，如果您想像示例中那样按顺序运行一堆测试，您可以使用以下内容：

function_that_sometimes_fails <- function(x)
{
  if(x %% 2 == 0) stop("function ", x, " failed")
  print(paste("test", x, "passed"))
}

exception_catcher <- function(e) print(paste(e$message, "but never mind"))

do_tests <- function() {
  for(i in 1:5)
    tryCatch(expr  = function_that_sometimes_fails(i),
         error = exception_catcher)
}

do_tests()
#> [1] "test 1 passed"
#> [1] "function 2 failed but never mind"
#> [1] "test 3 passed"
#> [1] "function 4 failed but never mind"
#> [1] "test 5 passed"

2017年8月20日由reprex软件包（v0.3.0）创建

Answer 2

除非你告诉它你想抓什么，否则什么也抓不到。例如，

tryCatch(
    expr = {
       res<- dbGetQuery(con, sql)
       print("SQL query results:")
       print(res)
    },
    error = function(e) NULL
)

出现错误时将返回NULL。没有那条线，它什么也抓不到。

旁注：res的存在不确定。两种情况：

>

res以前从未定义过。如果出现错误，res将不存在，并且随之而来的任何代码都将失败并出现错误：未找到对象'res'。

在以前的代码块中定义了res，现在可能没有必要了。但是，如果dbGetQuery失败，则不会重新定义res，因此它仍然存在，但与此查询无关。

这两种情况都有问题。我推荐如下：

res <- NULL
res <- tryCatch({
  dbGetQuery(con, sql)
}, error = function(e) conditionMessage(e))
if (is.null(res)) {
  print(paste("oops!", res))
} else {
  print(res)
}