如何在 R 的 for 循环中仅跳过特定类型的错误？

Question

我正在循环读取 read_xlsx（来自 readxl 库）以读取 excel 中的多张工作表。但是，如果工作表（用某个名称指定 - 在下面的示例中为“缺失”）不存在的错误，我希望它被忽略并且循环应该继续。但同时，如果有任何其他错误（比如与计算有关），那么在停止循环时不应忽略并作为错误抛出。如何做到这一点？

注意：我使用了 tryCatch / try；他们都忽略了所有类型的错误（从this 答案中学习）。

sheets=c("name1","name2","missing","name3")  
for (k in sheets) {
    tryCatch({temp=read_xlsx("someexcel.xlsx",sheet = k,col_names = F)
    some_calc=mean(temp[1,])},error=function(e){})
}

Answer 1

你可以试试这个：

test <- function(x) {
  tryCatch(x,
           error = function(e) {if(conditionMessage(e) == "It's an error") {print("no problem")
                               } else {
                                   stop("It's another error")}
                                                                 })
}

> test(stop("It's an error"))
[1] "no problem"

> test(stop("Mayday mayday"))
 Error in value[[3L]](cond) : It's another error 

conditionMessage 捕获错误消息，因此您可以对其进行评估并采取相应措施。

当条件为真时，它什么都不做就“什么也不做”{}。