重新启动时发生错误循环

Question

以下示例不执行所需的操作。即错误时，循环不会重新启动，而是运行1000（或提供的任何长度）并停止。我需要它重新启动每个10sec并从错误开始重新开始计算。

下面是摘录：

get_daydata <- function(n){ 
      message(paste("remaining runs", n)) 
      withRestarts(err <- tryCatch({ for(i in seq_along(he)){ 

       #.... some calculation ..... 

       }},error=function(e) { invokeRestart("rerun") }), 
       rerun = function() { message ("re-running"); stopifnot(n > 0); 
       for(i in 1:10) { Sys.sleep(1); cat(i) }; getdata(n-1) })} 

get_daydata(1000) 

Answer 1

这个怎么样。我保存原始的n，然后将内部的n重置为错误的原点

get_daydata <- function(n) { 
    orig_n <- n 
    message(paste("remaining runs", n)) 
    withRestarts(
    err <- tryCatch({ 
     for (i in seq_along(he)) { 
     #.... some calculation ..... 

     } 
    }, error = function(e) { 
     n <<- orig_n + 1 
     invokeRestart("rerun") 
    }), 
    rerun = function() { 
     message ("re-running") 
     stopifnot(n > 0) 

     for (i in 1:2) { 
     Sys.sleep(1) 
     cat(i) 
     } 
     get_daydata(n - 1) 
    } 
) 
} 

get_daydata(1000)