R语言爬虫循环报错：no loop for break/next问题求助

错误原因 #

报错核心是**break和next不能在tryCatch的回调函数里直接使用**——这些循环控制语句仅能在循环的直接作用域内生效，而tryCatch的error回调是独立函数环境，无法直接控制外层循环。

修正后的代码 #

build_oem_table <- function(...) {
  proxies <- c("203.24.108.170:80", "172.67.182.165:80", "45.12.30.84:80", "203.28.8.207:80")
  response <- NULL
  
  for (i in seq_along(proxies)) {
    proxy <- proxies[i]
    current_response <- tryCatch({
      GET("https://www.gsmarena.com/", config(proxy = paste0("http://", proxy)))
    }, error = function(e) {
      # 捕获请求错误，用NULL标记失败
      NULL
    })
    
    # 检查请求是否成功且状态码非429
    if (!is.null(current_response) && status_code(current_response) != 429) {
      response <- current_response
      break  # 找到可用代理，跳出循环
    }
    
    # 若为429或请求失败，自动进入下一个代理
  }
  
  # 所有代理均失败的处理
  if (is.null(response) || status_code(response) == 429) {
    stop("All proxies failed with HTML error 429 or connection errors")
  }
  
  # 后续逻辑：修正Windows路径转义问题
  sesh <- session("https://www.gsmarena.com/makers.php3")
  makers <- read_html(sesh)
  # Windows路径需用双反斜杠转义
  makers <- read_html("C:\\Users\\dex\\Downloads\\gsm\\List of all mobile phone brands - GSMArena.com.html")
  
  return(makers)
}

关键修改点 #

• 移除tryCatch内部的break和next，将循环控制逻辑移至循环主作用域
• 用NULL标记请求失败状态，在循环外统一判断结果
• 修正Windows文件路径的转义错误（R字符串中单反斜杠需写成双反斜杠或改用正斜杠）
• 提前初始化response变量，避免循环结束后变量未定义的问题

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