如何在嵌套for循环中通过tryCatch跳过错误迭代？

你的代码报错的核心原因是：tryCatch的错误处理函数是独立的函数环境，next语句无法直接作用于外层的for循环。要实现跳过内层循环的错误迭代，可以用以下两种方式处理：

方法1：用try捕获错误并判断跳过 #

通过try执行代码块，捕获错误后判断结果类型，再执行next跳过当前迭代：

df <- data.frame(
  name = c("Neo","Mr.Smith","Morpheus"),
  age = c(22,'2',28)
)

youth <- df$age

for(i in df$name){
  for (j in youth){
    # 执行代码并捕获错误，silent=TRUE避免输出错误信息
    exec_result <- try({
      if(!is.numeric(j)) {
        stop("Not numeric: ", j)
      } else {
        print(j)
      }
    }, silent = TRUE)
    
    # 如果捕获到错误，跳过当前内层循环迭代
    if(inherits(exec_result, "try-error")) {
      next
    }
  }
  print(i)
}

方法2：直接判断条件跳过（更简洁） #

如果你的场景只是判断数值类型，不需要主动抛出错误，直接用条件判断加next即可，无需异常捕获：

df <- data.frame(
  name = c("Neo","Mr.Smith","Morpheus"),
  age = c(22,'2',28)
)

youth <- df$age

for(i in df$name){
  for (j in youth){
    # 非数值直接跳过
    if(!is.numeric(j)) {
      next
    }
    print(j)
  }
  print(i)
}

补充说明 #

原代码中tryCatch的错误处理函数里用next之所以失效，是因为next是循环控制语句，必须直接处于循环体的作用域内，而错误处理函数是独立的闭包，无法直接操控外层循环的流程。

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