R - tryCatch - 使用最后一次迭代索引重新启动 for 循环

Question

我已经阅读了有关 tryCatch() 的文档和其他几个问题，但是，我无法找出我的问题类别的解决方案。

要解决的任务是： 1）有一个从数据帧的第1行到第n行的for循环。 2）执行一些指令 3)如果出现错误会停止程序，而是从当前迭代重新开始循环循环。

例子

for (i in 1:50000) {
...execute instructions...
}

我正在寻找的是一个解决方案，在迭代 30250 出现错误的情况下，它会重新启动循环，这样

for (i in 30250:50000) {
...execute instructions...
}

我正在研究的实际示例如下：

library(RDSTK)
library(jsonlite)
DF <- (id = seq(1:400000), lat = rep(38.929840, 400000), long = rep( -77.062343, 400000)
for (i in 1 : nrow(DF) {
    location <- NULL
    bo <- 0
    while (bo != 10) {  #re-try the instruction max 10 times per row 
        location <- NULL
        location <- try(location <-  #try to gather the data from internet
                coordinates2politics(DF$lat[i], DF$long[i]))
        if (class(location) == "try-error") {  #if not able to gather the data
            Sys.sleep(runif(1,2,7))  #wait a random time before query again
            print("reconntecting...")
            bo <- bo+1                      
            print(bo)                 
        } else    #if there is NO error
            break   #stop trying on this individual
    }
    location <- lapply(location, jsonlite::fromJSON)
    location <- data.frame(location[[1]]$politics)
    DF$start_country[i] <- location$name[1]
    DF$start_region[i] <- location$name[2]
    Sys.sleep(runif(1,2,7))  #sleep random seconds before starting the new row
}

注意：try() 是“...执行指令...”的一部分

我正在寻找的是一个 tryCatch，当发生停止程序的严重错误时，它会从当前索引“i”重新启动 for 循环。

这个程序将允许我自动迭代超过 400000 行，并在出现错误时在中断的地方重新启动。这意味着该程序将能够完全由人类独立工作。

希望我的问题很清楚，非常感谢。

Answer 1

使用while 而不是for 更好地解决这个问题：

i <- 1
while(i < 10000){
  tryCatch(doStuff()) -> doStuffResults
  if(class(doStuffResults) != "try-catch") i <- i + 1
{

请注意，如果某些情况总是失败doStuff：循环将永远不会终止！

如果程序将产生致命错误并需要人工重启，那么第一行 i <- 1 可以替换为（只要您不在代码的其他地方使用 i）

if(!exists("i")) i <- 1

这样循环中的值将保持不变，不会被重置为 1。