R - 在循环中设置执行时间限制

Question

我有一个使用 rNOMADS 包下载预测数据的脚本。目前，它使用for循环按顺序调用每三个小时预测间隔的预测下载函数。问题是下载功能偶尔会随机“卡住”，这迫使我终止 R 并重新开始该过程。当它卡住时，代码会在下载功能处挂起几分钟，而不是执行所需的典型 <1 秒，然后当我尝试停止执行时，我收到一条消息，说“R 没有响应您中断处理的请求，因此停止当前操作，您可能需要完全终止 R。”

有没有办法为每次 for 循环迭代中执行的特定代码块设置时间限制，然后跳过该代码块并在达到时间限制时抛出错误？像 tryCatch 之类的东西，我可以用它来提高标志以重新执行循环迭代吗？

就像是:

for (i in 1:N) {
   ...

   setTimeLimit(XXX seconds) {
      downloadFunction()
   } timeLimitReached {
      doOverFlag <- 1
   }
}

提前致谢!

Answer 1

这个函数现在工作如下:

library(R.utils)
withTimeout(Sys.sleep(10), timeout = 1)#stop execution after one second