How to exit a function after a certain time period in R

lapply jump

# The data in the list you want to use lapply with
my_dat <- as.list(sample(1:10000,10, replace=T))



foo_time <- function(dat,time_thresh = 2){
  start_time <- proc.time()
  end_time <- 0
    
  for(i in 1:dat){
   ###Put the actual function you want to call within this for loop
    X <- matrix(rnorm(1000),1000)  
    tmp <- X%*%t(X)
   ##### After a  single iteration of your process calculate the time  
    end_time <- proc.time() - start_time 
   ### check the time.  If it's too long break out of the loop and return a value
        if(end_time[1] >= time_thresh){
          break()
        }
    }
  return(end_time[1])
}

### Note that all times are shorter than the time threshold
lapply(my_dat,foo_time,time_thresh = 1)