R语言中try与tryCatch的使用问题：API调用报错后循环终止

你的代码核心问题出在tryCatch的error参数写法和变量作用域上：

1. error = {errors=errors+1}不是正确的错误处理逻辑，这段代码无法正确更新外部的errors变量，甚至可能因作用域问题导致循环异常中断。
2. 错误未被有效捕获处理，使得API调用报错后后续循环迭代无法继续。

修正后的代码 #

errors <- 0

for(i in 1:100){
  tryCatch(expr = {
    # 替换为你的实际API调用代码
    # API Call
  }, 
  error = function(e) {
    # 使用<<-修改外层环境的errors变量，确保次数统计生效
    errors <<- errors + 1
    # 可选：打印错误信息方便排查问题
    message(paste("迭代", i, "时出错：", e$message))
  },
  finally = {})
  
  # 此处后续代码会正常执行，不受API调用结果影响
  # further code
}

# 输出最终统计的错误次数
cat("总错误次数：", errors, "\n")

关键说明 #

• error参数必须传入函数（这里用匿名函数function(e)），参数e会接收错误对象，可通过e$message查看具体错误详情。
• 使用<<-赋值符：tryCatch的错误处理函数内部是局部环境，直接用=赋值只会修改局部变量，<<-会向上查找并修改外层环境的errors变量，保证错误次数能被正确累加。
• 修改后，即使某次API调用报错，错误会被捕获统计，循环会继续执行后续迭代和后续代码。

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