R语言tryCatch处理警告时如何透传expr表达式的返回值

默认tryCatch捕获到警告后会直接中断表达式执行，返回警告处理函数的返回值，因此无法直接拿到后续的表达式执行结果，推荐使用withCallingHandlers搭配信号重启实现需求：

r <- withCallingHandlers(
  {
    warning("I'm a warning!")
    return(100) # 原表达式的返回值
  },
  warning = function(w) {
    # 自定义警告处理逻辑，比如用警告信息发送通知
    message("收到警告：", w$message)
    # 调用内置重启，抑制警告默认打印，同时让表达式继续执行
    invokeRestart("muffleWarning")
  }
)

运行后r的值就是你需要的100，同时警告处理逻辑也会正常执行。

原理说明 #

• withCallingHandlers和tryCatch的核心差异是：前者不会在捕获信号后中断原表达式执行，而是在信号触发的上下文执行处理函数，执行完成后回到原代码位置继续运行
• invokeRestart("muffleWarning")是R针对警告信号内置的重启操作，可以避免警告信息默认输出到控制台，如果你需要保留控制台的警告打印，删掉这行即可
  如果确实需要使用tryCatch实现，也可以通过外部变量中转结果，不过实现容错性更低，不推荐使用：

expr_res <- NULL
r <- tryCatch(
  {
    expr_res <- 100
    warning("I'm a warning!")
    expr_res
  },
  warning = function(w) {
    # 警告处理逻辑
    message("收到警告：", w$message)
    # 返回提前存储的表达式结果
    return(expr_res)
  }
)

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