for循环中tryCatch捕获错误后如何重新执行当前失败的循环步骤

核心解决思路：给每个下载任务增加成功状态标记，只有当前任务明确执行成功后才进入下一个迭代，失败则保持当前迭代序号不变，等待后重新发起请求，同时建议设置单任务最大重试次数，避免非临时故障导致程序无限卡住。

可直接复用的实现代码 #

# 可自行调整参数：单任务最大重试次数、等待时长
max_retry <- 3
wait_seconds <- 800
# 用于存储多次重试仍失败的任务序号，后续可单独处理
failed_idx <- c()

i <- 1
while (i <= 1000) {
  task_success <- FALSE
  current_retry <- 0
  
  while (current_retry < max_retry && !task_success) {
    tmp <- tryCatch({
      # 执行下载任务，成功则标记状态为TRUE
      download_res <- download_data(list$tool[i])
      task_success <- TRUE
      download_res
    }, error = function(e) {
      current_retry <<- current_retry + 1
      # 可选打印日志，方便排查问题
      message(paste0("任务", i, "第", current_retry, "次请求失败，等待后重试"))
      Sys.sleep(wait_seconds)
      return(NULL)
    })
  }
  
  # 超过最大重试次数的任务记录后跳过
  if (!task_success) {
    message(paste0("任务", i, "重试", max_retry, "次仍失败，已跳过"))
    failed_idx <- c(failed_idx, i)
  }
  
  # 无论当前任务成功还是最终跳过，都进入下一个任务
  i <- i + 1
}

补充说明 #

• 如果不需要限制重试次数，去掉内层的重试次数判断逻辑即可，但不推荐该做法，可能因为永久故障导致程序卡死
• 你原有的for循环无法实现重试的原因是，迭代变量i会在每次循环结束后自动递增，不会因为任务失败停留在当前值，因此改用手动控制i步进的while循环更灵活
• 存储失败任务序号的failed_idx向量，可以在所有任务跑完后统一二次处理，不需要重新跑全部任务

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