如何在R中重启带有超时的eval循环？

timeout <- function(expr, timeout) {
  if (timeout <= 0) {
    stop("Timeout value must be positive")
  }
  
  result <- tryCatch({
    withTimeout(expr, timeout)
  }, TimeoutException = function(ex) {
    message("Evaluation timed out")
    NULL
  })
  
  return(result)
}

eval_with_timeout <- function(expr, timeout) {
  repeat {
    result <- timeout(expr, timeout)
    if (!is.null(result)) {
      break
    }
    message("Restarting evaluation...")
  }
  
  return(result)
}

# 使用示例
eval_with_timeout({
  # 在这里写需要重启的代码块
  # 例如，一个需要重复执行的任务
  # 例如，一个需要超时处理的任务
}, timeout = 10)

install.packages("R.utils")