r tryCatch 如何将对象传递给错误函数

Question

myFunc <- function(x)
{
  x <- timeSeries(x, charvec=as.Date(index(x)))
  t<-tryCatch(  doSomething(x), error=function(x) rep(0,ncol(x))
  )
  t
}

如何将 x 传递到错误函数中？当我运行上面的我得到:

rep(0, ncol(x)) 中的错误:'times' 参数无效

Answer 1

error参数是一个处理程序，记录(见 ?tryCatch )接受一个参数(错误条件)。错误处理程序可以访问当时可用的任何变量 stop被调用。所以

f = function() {
    tryCatch({
        i = 1
        stop("oops")
    }, error=function(e) {
        stop(conditionMessage(e), " when 'i' was ", i)
    })
}

捕获代码抛出的错误，发现值 i ，并发出更多信息。所以我猜

myFunc <- function(x)
{
    tryCatch({
        x <- timeSeries(x, charvec=as.Date(index(x)))
        doSomething(x)
    }, error=function(...) rep(0, ncol(x)))
}