R/with_timeout.R

In emse-p4a-gwu/p4aGrader: Autograder for for EMSE 4574: Programming for Analytics

#' This function will prevent infinite loop
#' We can define the runing time for each file
with_timeout <- function(expr, cpu, elapsed) {
  expr <- substitute(expr)
  envir <- parent.frame()
  setTimeLimit(cpu = cpu,
               elapsed = elapsed,
               transient = TRUE)
  on.exit(setTimeLimit(
    cpu = Inf,
    elapsed = Inf,
    transient = FALSE
  ))
  eval(expr, envir = envir)
}