在R语言for循环中遇错误时跳过当前迭代的实现求助

在使用geniusr包批量爬取歌词时，遇到HTTP 404这类“未找到资源”的错误会直接终止嵌套循环，以下是针对这个问题的错误处理优化方案，先分析你现有代码的问题，再给出正确实现：

现有代码的问题 #

代码示例1 #

• 未定义error变量，if(error == TRUE)完全无效，无法捕获错误
• row(artist_list[[i]])应为nrow(artist_list[[i]])，否则会触发语法错误
• counter与j的索引逻辑混乱，内层循环用counter取元素会导致索引错位

代码示例2 #

• tryCatch缺少错误处理的error参数块，遇到错误仍会终止循环
• 同样存在counter与j的索引逻辑问题，错误跳过后续元素的存储会混乱

正确的错误处理实现 #

方案1：使用tryCatch精准捕获错误 #

此方案可以针对性处理404错误，同时打印日志跟踪进度：

library(geniusr)

# 初始化总结果列表，对应50个艺术家
lyrics_list <- vector("list", length = 50)

for(i in 1:50) {
  # 初始化当前艺术家的歌词列表
  artist_lyrics <- vector("list", length = nrow(artist_list[[i]]))
  for(j in 1:nrow(artist_list[[i]])) {
    artist_name <- artist_list[[i]][j, 1]
    song_title <- artist_list[[i]][j, 30]
    
    tryCatch({
      # 尝试获取歌词
      lyrics <- get_lyrics_search(artist_name = artist_name, song_title = song_title)
      artist_lyrics[[j]] <- lyrics
      cat("成功获取：", artist_name, "-", song_title, "\n")
    }, error = function(e) {
      # 判断是否为404错误
      if(grepl("HTTP error 404", e$message)) {
        cat("跳过404错误：", artist_name, "-", song_title, "\n")
      } else {
        cat("遇到未知错误：", e$message, "，跳过：", artist_name, "-", song_title, "\n")
      }
    })
  }
  # 将当前艺术家的歌词存入总列表
  lyrics_list[[i]] <- artist_lyrics
}

方案2：使用try简化错误跳过 #

如果不需要区分错误类型，仅需跳过所有错误，可使用try函数简化代码：

library(geniusr)

lyrics_list <- vector("list", length = 50)

for(i in 1:50) {
  artist_lyrics <- vector("list", length = nrow(artist_list[[i]]))
  for(j in 1:nrow(artist_list[[i]])) {
    artist_name <- artist_list[[i]][j, 1]
    song_title <- artist_list[[i]][j, 30]
    
    # 尝试执行，silent=TRUE不打印默认错误信息
    result <- try(get_lyrics_search(artist_name = artist_name, song_title = song_title), silent = TRUE)
    if(!inherits(result, "try-error")) {
      artist_lyrics[[j]] <- result
      cat("成功获取：", artist_name, "-", song_title, "\n")
    } else {
      cat("跳过错误：", artist_name, "-", song_title, "，错误信息：", result, "\n")
    }
  }
  lyrics_list[[i]] <- artist_lyrics
}

关键优化点 #

• 用循环变量j作为索引，避免自定义counter导致的索引错位
• 明确初始化每个层级的列表，保证结果结构清晰
• 加入日志打印，方便跟踪爬取进度和错误情况
• 通过tryCatch或try捕获错误，确保遇到错误时跳过当前迭代，继续后续循环

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