如何在dplyr中使用tbl从数据库获取数据时捕获错误？为何tryCatch无法捕获ODBC SQL Server驱动报错？

这个问题我之前也碰到过，核心原因是dplyr的惰性求值特性在搞鬼！

问题根源 #

当你调用tbl(conn, query)时，R并没有立即执行数据库查询，而是生成了一个延迟执行的查询对象。这个对象只是保存了查询的逻辑，真正的数据库交互会延迟到你实际需要获取数据的时候才发生——比如你打印result、调用collect()，或者对这个对象做其他需要读取数据的操作。

你的原代码里，tryCatch只包裹了tbl(conn, query)这一步，而这一步根本不会触发数据库错误。错误是在你后续调用result时才抛出的，这时候已经超出了tryCatch的捕获范围，自然无法被处理。

解决方案 #

要解决这个问题，你需要把触发实际查询的操作也放进tryCatch块里。最直接的方式是用collect()强制立即执行查询并将数据加载到内存中，这样错误就会在tryCatch内部触发，进入错误处理分支。

修正后的代码示例：

result <- tryCatch({
  # 创建查询对象后立即执行查询，触发数据库交互
  data <- tbl(conn, query) %>% collect()
  data
}, error = function(e){
  message("Error encountered: ", e$message)
  message("Attempting to run by sorting the columns")
  new_query <- create_query_with_column_names(query)
  message("Attempting to fetch the data with the new query")
  # 同样执行新查询并加载数据
  data <- tbl(conn, new_query) %>% collect()
  end_time <- Sys.time()
  show_query_runtime(total_time=end_time-start_time, caller="fetch data without lazy loading.")
  data
})

额外注意点 #

• 如果你的场景需要保留惰性查询对象（比如后续还要做更多dplyr操作），可以在错误处理分支返回修正后的tbl对象，但要确保这个新对象在后续访问时不会再触发相同错误。不过更稳妥的方式还是在tryCatch内验证查询是否能正常执行。
• 原代码里的print("Error encountered: ", e)存在参数问题，建议用message()输出错误信息，并提取e$message获取具体的错误描述，这样输出会更清晰。

内容的提问来源于stack exchange，提问作者user1828605