R/FLiem-class.R

In flr/mse: Tools for Running Management Strategy Evaluations using FLR

#' @title S4 class \code{FLiem}
#'
#' @description The \code{FLiem} class stores the information relative to the implementation error model of the MSE.
#'
#' @section Slots:
#' \describe{
#'    \item{method}{\code{character} with the name of the method to be run. Note a function of method must exist in the environment with the same name.}
#'    \item{args}{\code{list} with arguments to be passed to the function defined in \code{method}}
#' @template Accessors
#' @template Constructors
#' @docType class
#' @name FLiem-class
#' @rdname FLiem-class
#' @aliases FLiem-class
#' @examples

FLiem <- setClass("FLiem", contains = "mseCtrl")

#' @rdname FLiem-class
#' @template bothargs
#' @aliases FLiem FLiem-methods
setMethod("initialize", "FLiem",
    function(.Object, ...) {
      .Object <- callNextMethod(.Object, ...)
      .Object
    })

#' @rdname FLiem-class
setMethod("iter", signature(obj = "FLiem"),
  function(obj, iter) {

  args(obj) <- lapply(obj@args, function(x) {
			if(is(x, "FLQuant")) FLCore::iter(x, iter) else x
		})

	do.call(class(obj), list(obj))
})

setMethod("iter", signature(obj = "NULL"),
  function(obj, iter) {
    return(NULL)
  })