R/isVectorized.R

In smoof: Single and Multi-Objective Optimization Test Functions

Defines functions isVectorized.smoof_wrapped_function isVectorized.smoof_function isVectorized

Documented in isVectorized

#' Checks whether the given function accept \dQuote{vectorized} input.
#'
#' @template arg_smoof_function
#' @return [\code{logical(1)}]
#' @export
isVectorized = function(fn) {
  UseMethod("isVectorized")
}

#' @export
isVectorized.smoof_function = function(fn) {
  return(attr(fn, "vectorized"))
}

#' @export
isVectorized.smoof_wrapped_function = function(fn) {
  return(isVectorized(getWrappedFunction(fn)))
}

Try the smoof package in your browser