R中使用googlesheets4写大数据到Google Sheets时如何捕获超时错误并重试

问题核心原因 #

googlesheets4 抛出的503 UNAVAILABLE超时错误属于gargle框架封装的HTTP请求错误，原有retry逻辑未生效的核心原因是when参数未正确匹配错误特征，可通过以下方案解决：

方案1：调整retry包重试配置 #

retry包的when参数支持传入自定义判断函数，可精准匹配503错误触发重试：

retry::retry(
  expr = {
    googlesheets4::range_write(
      ss = my_sheet,
      data = my_data,
      sheet = sheet,
      range = "A1",
      col_names = TRUE
    )
  },
  # 只要错误信息包含503或UNAVAILABLE关键词就触发重试
  when = function(e) grepl("(503)|UNAVAILABLE", e$message, ignore.case = TRUE),
  max_tries = 3,
  # 可设置阶梯间隔，给服务端留充足处理时间
  interval = c(10, 15, 20)
)

方案2：基于base R的tryCatch手写重试逻辑 #

如果依赖retry包仍有捕获异常的问题，可手写可控性更高的重试函数：

safe_range_write <- function(ss, data, sheet, max_attempts = 3, base_wait = 10) {
  attempt <- 1
  while(attempt <= max_attempts) {
    write_result <- tryCatch({
      googlesheets4::range_write(
        ss = ss,
        data = data,
        sheet = sheet,
        range = "A1",
        col_names = TRUE
      )
      # 写入成功直接返回
      return(invisible(TRUE))
    }, error = function(err) {
      message(sprintf("第%d次写入失败，错误：%s", attempt, err$message))
      # 匹配到503错误且未到最大重试次数就等待后重试
      if(grepl("(503)|UNAVAILABLE", err$message, ignore.case = TRUE) && attempt < max_attempts) {
        wait_time <- base_wait * attempt
        message(sprintf("等待%d秒后重试", wait_time))
        Sys.sleep(wait_time)
        return(FALSE)
      } else {
        # 非可重试错误或重试次数用尽，抛出原始错误
        stop(err)
      }
    })
    attempt <- attempt + 1
  }
}

# 调用示例
safe_range_write(my_sheet, my_data, sheet = sheet)

额外优化建议 #

• 写入前先调用googlesheets4::sheet_clear(sheet = sheet)清空目标工作表，减少服务端数据合并的处理成本，降低超时概率
• 单表数据量超过10万行时，可拆分为2-3个小批次分别写入，进一步降低单次请求的压力

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