R tryCatch（）-在finally中引用expr（）的返回？[副本]

Question

我试图编写一个函数来处理批处理作业的执行，记录作业结果的错误和统计信息。

是否有方法从finally块引用expr块的返回值？

my_do <- function(FUN, ...){

  result <- tryCatch({
      FUN(...)
    }, 
    error = function(e) {
      message("error.")
    },
    finaly = {

      # how can I reference the returning value of FUN(...) in finally block?
      # so for example, I can write code like this:

      message(paste("Result dimensions:", dim(expr_result)))
    },
  )

  return(result)
}

Answer 1

我建议这不是最后使用的最佳方式。

有以下最佳实践可供使用最后（http://adv-r.had.co.nz/Exceptions-Debugging.html）：

它指定要运行的代码块（不是函数），无论初始表达式是成功还是失败。这对于清理（例如，删除文件、关闭连接）非常有用。这在功能上等同于在上使用。exit（），但它可以封装比整个函数更小的代码块。

Answer 2

如果tryCatch返回值被保存到变量中，例如

x <- tryCatch({ 1; }, finally = { message("value is ", x); })
# Error in message("value is ", x) : object 'x' not found

那么答案是否定的，因为当tryCatch执行最终=时，x对象不存在。

但是，代码块在父环境中运行，因此您可以执行以下操作：

tryCatch({ x <- 1; }, finally = { message("value is ", x); })
# value is 1
x
# [1] 1

这取决于返回值的设置是否正确。如果执行过程中出现错误，那么。。。显然，将没有可检索的值。