请求协助：带条件判断的API调用循环脚本编写问题

我完全懂你的困扰——遍历连续订单ID时，遇到不存在的订单就终止脚本，还得把有效订单都存起来。咱们来调整你的代码，加上容错判断和数据收集的逻辑：

library(jsonlite)
library(httr)

user <- "my_name"
token <- "xyz"
# 初始化空列表，专门存有效订单
valid_orders <- list()
# 直接定义ID范围，比生成25万条url字符串高效多了
start_id <- 2
end_id <- 250000

for(y in start_id:end_id) {
  url <- paste0("api.com/orders/", y)
  response <- httr::GET(url, authenticate(user, token))
  
  # 先检查HTTP状态码，比如404直接说明订单不存在，跳过后续步骤
  if (httr::http_error(response)) {
    message(paste("订单ID", y, "不存在，跳过"))
    next
  }
  
  # 解析JSON时加个容错，避免格式异常的响应搞崩脚本
  response_content <- httr::content(response, as = "text", encoding = "UTF-8")
  response_json <- tryCatch(
    jsonlite::fromJSON(response_content, flatten = TRUE),
    error = function(e) {
      message(paste("解析订单ID", y, "的JSON失败：", e$message))
      return(NULL)
    }
  )
  
  # 解析失败就跳过
  if (is.null(response_json)) {
    next
  }
  
  # 检查API返回的success标记，确认订单有效
  if (!is.null(response_json$success) && !response_json$success) {
    message(paste("订单ID", y, "API返回失败：", response_json$message))
    next
  }
  
  # 到这里就是有效订单啦，加到列表里
  valid_orders[[length(valid_orders) + 1]] <- response_json
  # 加个进度提示，方便跟踪进度
  if (length(valid_orders) %% 100 == 0) {
    message(paste("已收集", length(valid_orders), "条有效订单"))
  }
}

# 最后可以把列表转成数据框（如果需要结构化数据的话）
if (length(valid_orders) > 0) {
  orders_df <- do.call(rbind, valid_orders)
}

关键改进说明： #

• 更高效的ID遍历：直接用start_id:end_id循环，省去了生成25万条url字符串的内存开销
• 双层容错机制：先检查HTTP请求状态，再用tryCatch处理JSON解析异常，彻底避免脚本终止
• 明确的有效性判断：通过API返回的success字段确认订单有效，不会误存错误响应
• 进度可视化：每收集100条订单打印提示，不用瞎等不知道进度

另外提个小优化：如果你的API支持批量查询，或者有订单列表接口，其实可以不用遍历所有ID，直接分页拉取所有订单，效率会高很多。不过如果只能按ID查询的话，上面的代码就完全够用了。

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