请求协助实现R中测试失败时切换配置重试的循环逻辑

正确逻辑流程 #

• 按顺序遍历path_list中的每个待下载文件
• 对当前文件，从config_list的第一个配置开始尝试：
  1. 使用当前配置下载文件
  2. 检查文件是否通过测试
  3. 若测试通过，停止该文件的配置重试，进入下一个文件的处理
  4. 若测试失败，切换到下一个配置，重复下载和测试；若所有配置用完仍失败，可选择跳过或记录失败

修正后的代码实现 #

path_list <- c("path1", "path2", "path3")  # 向量比列表更适合这类遍历场景，列表也可兼容
config_list <- c("a", "b", "c")

# 遍历每个待下载文件
for (path in path_list) {
  is_success <- FALSE  # 标记当前文件是否下载并测试成功
  current_config_idx <- 1  # 从第一个配置开始尝试
  
  # 循环重试配置，直到成功或所有配置耗尽
  while (!is_success && current_config_idx <= length(config_list)) {
    current_config <- config_list[current_config_idx]
    
    # 模拟下载操作（替换为实际下载代码）
    cat(sprintf("使用配置「%s」下载文件「%s」\n", current_config, path))
    
    # 模拟测试逻辑（替换为实际的文件有效性检查代码）
    # 此处用path=="path2"且第一个配置时模拟失败，其他情况视为成功
    if (path == "path2" && current_config_idx == 1) {
      cat(sprintf("文件「%s」使用配置「%s」测试失败，切换至下一个配置\n", path, current_config))
      current_config_idx <- current_config_idx + 1
    } else {
      cat(sprintf("文件「%s」使用配置「%s」测试通过\n", path, current_config))
      is_success <- TRUE  # 标记成功，退出当前文件的重试循环
    }
  }
  
  # 处理所有配置尝试后仍失败的情况
  if (!is_success) {
    cat(sprintf("文件「%s」尝试所有配置后仍失败，已跳过\n", path))
  }
}

原代码的问题分析 #

1. 循环顺序错误：原代码先遍历所有配置，再遍历所有文件，会导致同一个文件被不同配置重复下载（无论之前是否成功），完全不符合“单个文件失败才换配置重试”的需求。
2. 配置切换逻辑无效：原代码中con[1]、con[1+1]的写法错误，因为con是遍历config_list得到的单个元素，不是列表本身，无法通过索引切换配置。
3. 缺少重试终止条件：没有标记文件是否成功，无法控制何时停止重试当前文件。

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