R/helper.R

In smoof: Single and Multi-Objective Optimization Test Functions

# Makes a function which expects a list out of a function which
# expects a vector.
#
# @param fn [\code{function}]\cr
#   R Function or \code{smoof_function} which expects a vector of parameters.
# @return [\code{function}]
makeInternalObjectiveFunction = function(fn) {
  force(fn)
  function(x, ...) {
    fn(unlist(x), ...)
  }
}