R语言While循环未按预期终止问题排查

你的问题核心出在try块中赋值语句的执行逻辑上：当run_request_and_writedb()在循环内抛出错误时，status <- run_request_and_writedb()这个赋值操作会失败，status会一直保持初始的NULL值，导致循环条件is.null(status) && attempt <= number_of_retries持续满足，直到尝试次数达到上限。

而你手动执行status <- run_request_and_writedb()时函数没有出错，赋值成功，status变为TRUE，is.null(status)返回FALSE，这时候循环条件自然不成立，所以你会误以为循环应该立即终止。

具体执行流程对比 #

• 函数执行成功时：第一次循环进入后，status被赋值为TRUE，attempt变为2。回到循环条件时，is.null(status)为FALSE，整个条件FALSE && 2<=3不成立，循环终止，符合你的预期。
• 函数执行出错时：try块捕获错误，但赋值操作未完成，status仍为NULL。attempt递增后，循环条件TRUE && attempt <=3依然成立，循环会持续执行直到attempt超过3次。

修复后的代码 #

要解决这个问题，需要确保无论函数是否出错，status都会被赋值，然后通过判断status是否为TRUE来决定是否终止循环：

run_request_and_writedb <- function() {
  return(TRUE)
}

## 重试逻辑优化
status <- FALSE
attempt <- 1
number_of_retries <- 3

while( !isTRUE(status) && attempt <= number_of_retries ) {
  # 直接将函数调用结果（含错误情况）赋值给status
  status <- try(run_request_and_writedb(), silent = TRUE)
  # 如果是错误对象，标记为未成功状态
  if (inherits(status, "try-error")) {
    status <- FALSE
  }
  attempt <- attempt + 1
  Sys.sleep(10)
}

这样修改后：

• 函数执行成功返回TRUE时，!isTRUE(status)为FALSE，循环立即终止
• 函数执行出错时，status被设为FALSE，循环继续，直到尝试次数耗尽

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