如何在R中停止一个耗时太长的函数并给它一个替代方案？

R包R.utils的功能evalWithTimeout几乎与您所描述的完全相同.如果您不想安装软件包,则evalWithTimeout依赖于用户友好的R基本功能setTimeLimit

您的代码看起来像这样:

library(R.utils)

slow.func <- function(x){
  Sys.sleep(10)    
  return(x^2)
}

fast.func <- function(x){
  Sys.sleep(2) 
return(x*x)
}
interruptor = function(FUN,args, time.limit, ALTFUN){
  results <- NULL
  results <- evalWithTimeout({FUN(args)},timeout=time.limit,onTimeout="warning")
  if(results==NULL){
    results <- ALTFUN(args)
  }
  return(results)
}   
interruptor(slow.func,args=2,time.limit=3,fast.func)