Time out for a R Function

Below is a toy function with one way of doing it. There are bound to
be better ways :)

function(niter = 10, time.out = 3) {
  pretend.task <- function() {
  	Sys.sleep(0.5)
  }

  start <- proc.time()

  for (iter in 1:niter) {
    pretend.task()	
    cur <- proc.time() - start
    if (cur[3] > time.out) return("timed out")
  }

  return("completed")
}

Hello Group,

I have an R-function that works fine for most part but sometime runs into a
long loop! (I'm lazy and short on time to debug right now so want to do
something easy)
For my purpose, it is ok to make few errors .... is there a way I can put a
timeout on a function and the r-process needes to move on to the next step?

Thank you.
S

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.