使用 trycatch 返回错误的上下文

Question

这里我有这个函数：（删除对象是我们不想计算的函数的名称）

    func <- function(x, remove=NULL) {
  if(class(x)%in%"igraph"){
  doclist <- list("edgelist"=function(x) as.edgelist(x),
                    "adjacencyMatrix"=function(x)as_adjacency_matrix(x),
                    "incidenceMatrix"=function(x) as_incidence_matrix(x, 0.001),
                    "data.frame"=function(x) as_data_frame(x))

  sapply(doclist[setdiff(names(doclist), remove)], function(f) f(n))}
  else stop("The input is not an igraph object")
}

如何在这个函数中使用 tryCatch？如果 'doclist' 中的任何函数遇到错误，'doclist' 的下一行将执行。最终结果消息警告调用有错误的函数的名称和错误的上下文。

Answer 1

这里有一些代码，基本上展示了如何做到这一点。它不使用igraph 对象或doclist 中的函数，因此您必须自己调整它以使用它们。

首先，这里有两个会引发错误的函数：

g <- function(y) { 
    stop("g failed")
}
h <- function(y) { 
    stop("h failed")
}

这里是你的函数的清理版本，在doclist 中使用了一些不同的函数：

func <- function(x, remove=NULL) {
    if (!is(x, "numeric")) 
        stop("x must be a numeric")

    doclist <- list(
        sum = function(x) sum(x),
        g = function(x) g(x),
        makeMatrix = function(x) matrix(x, nrow=3, ncol=3),
        h = function(x) h(x)
    )
    doclist <- doclist[setdiff(names(doclist), remove)]

    warningsText <- ""
    result <- lapply(names(doclist), 
        function(functionName, x) {
            f <- doclist[[functionName]]
            tryCatch(f(x), 
                error = function(e) {
                    warningsText <<- paste0(warningsText, 
                        "\nError in ", functionName, ":\n", e$message)
                    return(NULL)
                }) 
        }, x)

    if (nchar(warningsText) > 0) 
        warning(warningsText)
    return(result)
}

这就是它产生的结果：

> func(1:2)
[[1]]
[1] 3

[[2]]
NULL

[[3]]
     [,1] [,2] [,3]
[1,]    1    2    1
[2,]    2    1    2
[3,]    1    2    1

[[4]]
NULL

Warning messages:
1: In matrix(x, nrow = 3, ncol = 3) :
  data length [2] is not a sub-multiple or multiple of the number of rows [3]
2: In func(1:2) : 
Error in g:
g failed
Error in h:
h failed

注意事项：

• 对于引发错误的函数，这会将 NULL 放入结果列表中。
• 所有错误都归为一个警告。在带有func(1:2) 的示例中，这是显示的第二个警告。
• for 循环会比 lapply 或 sapply 更好，但我还没有这样做。
• lapply 优于 sapply，因为函数都返回不同类型的对象。
• 最好将x 包含在lapply 内的无名函数的参数中，并将其作为lapply 的第三个参数。
• lapply 的第一个参数应该是函数名，以便函数名和函数本身都可用于lapply 中的无名函数。