R/shouldTerminate.R

In mlr-org/mlrMBO: Bayesian Optimization and Model-Based Optimization of Expensive Black-Box Functions

# Helper which checks termination criteria.
#
# @param opt.state [\code{OptState}]\cr
shouldTerminate.OptState = function(opt.state) {
  opt.problem = getOptStateOptProblem(opt.state)
  control = getOptProblemControl(opt.problem)
  stop.conds = control$stop.conds
  progress = NULL

  for (i in seq_along(stop.conds)) {
    stop.cond = stop.conds[[i]]
    stop.obj = stop.cond(opt.state)
    if (isTRUE(names(stop.conds)[i] == control$use.for.adaptive.infill)) {
      progress = stop.obj$progress
    }
    if (stop.obj$term) {
      # if user-defined termination condition is active, set the code by hand
      if (is.null(stop.obj$code)) {
        stop.obj$code = "term.custom"
      }
      return(stop.obj)
    }
  }

  # "fallback"
  return(list(term = FALSE, message = NA_character_, code = NA_character_, progress = progress))
}