出错时再次循环

我试图阅读所有内容，但我有点陷入了一个问题。 通过使用 bigrquery，我创建了对 Google BigQuery 的查询来获取数据 - 不幸的是，有时我的查询由于超时而无法工作。 Q 是一个 SQL 查询，BQ 应该存储从 BigQuery 下载的数据。

有谁知道每次 tryCatch 给我一个错误时如何重新执行循环？

到目前为止我得到了这个：

BQ_Foo <- NULL
tryCatch(
{ 
repeat{
  BQ_Foo <- query_exec(Q_foo,"bigquery")
  if(is.list(BQ_Foo) == TRUE)break }
}
,error=function(e){cat("ERROR : Query not loaded!", "\n")}
)

EDIT:

我再次尝试了第一种方法，这次我收到了以下错误消息：

错误：curl::curl_fetch_memory(url,handle=handle)：
操作被应用程序回调中止

有人知道如何处理这个问题吗？

广泛基于 r2evans 的答案，以下是如何做同样的事情withRestarts，在一些帮助下:

set.seed(2)
foo <- NULL
operation <- function(x,tries) {
  message(paste("x is",x,"remaining tries",tries))
  withRestarts(
    tryCatch({
      if (runif(1) < x) stop("fail!") else 1
    },
    error=function(e) { invokeRestart("retry")}),
    retry = function() { 
      message("Retrying")
      stopifnot(tries > 0)
      operation(x,tries-1)
    }
  )
}
> operation(0.9,5)
# x is 0.9 remaining tries 5
# Retrying
# x is 0.9 remaining tries 4
# Retrying
# x is 0.9 remaining tries 3
# Retrying
# x is 0.9 remaining tries 2
# Retrying
# x is 0.9 remaining tries 1
[1] 1

这是一种递归调用，因此您可以在再次调用该函数之前执行任何您想要的操作。

您可以在 tryCatch 错误处理程序中以相同的方式执行此操作，使用重新启动处理程序的目的是调用特定函数，如果您有两个 tryCatch 想要几乎相同的处理程序行为，那么您可以添加一个参数并使用相同的处理程序对于每个 try catch，即：

testfun <- function(x) {
  withRestarts({
    tryCatch(
      {
        ifelse(runif(1) < 0.5,stop("Error Message"),warning("Warning message"))
      },
      warning=function(e) { invokeRestart("logger", level="warning", message=e ) },
      error=function(e) { invokeRestart("logger", level="error", message=e ) } 
    )
    },
    logger = function(level,message) {
      message(date()," [",level,"]: ",message[['message']])
    }
  )
}

Giving:

> set.seed(2)
> testfun()
Fri Jul 29 14:15:11 2016 [error]: Error Message
> testfun()
Fri Jul 29 14:15:12 2016 [warning]: Warning message
> testfun()
Fri Jul 29 14:15:13 2016 [warning]: Warning message
> testfun()
Fri Jul 29 14:15:13 2016 [error]: Error Message

这里的主要兴趣是分解记录器方法并减少代码重复。