R/tryCatch_codeExpressions.R

Defines functions eval_inAnsEnv tryCatch_eval_inAnsEnv

tryCatch_eval_inAnsEnv <- function(answerCodeExpressions, answerEnvironment){
  flag_executable <- F
  tryCatch(
    R.utils::withTimeout({
    answerCodeExpressions %>% eval_inAnsEnv(answerEnvironment)
    T
  }, timeout=15),
  error=function(e){
    "Error: codes cannot be processed"
    F
  }) -> flag_executable
  invisible(flag_executable)
}
eval_inAnsEnv <- function(stepExpr, envir){
  # browser()
  purrr::walk(
    stepExpr,
    eval,
    envir=envir
  )
  # do.call(eval, stepExpr, envir=envir)
}
tpemartin/rmdgrader documentation built on Nov. 22, 2022, 6:39 p.m.