inst/doc/examples/observer.R

In simecolModels: Model collection for the simecol package

setGeneric("observer", function(obj, ...) standardGeneric("observer"))
setGeneric("observer<-", function(obj, value) standardGeneric("observer<-"))


setMethod("observer", "indbasedModel",
    function(obj) {obj@observer}
)

setMethod("observer<-", "indbasedModel",
    function(obj, value) {
      obj@observer <- value
      invisible(obj)
    }
)