R/response.R

In bmcnellis/RSFIA: FIA Tree Mortality Analysis

#' @include generics.R
#' @include nc_helper.R
#'
#' @title nc_helper extension that stores response variables
#'
#' @author Brandon McNellis
#'
#' @name response
#' @rdname response
NULL
#'
#' An S4 class for soilgrids data
#'
#' @rdname response
soilgrids <- setClass(
  'response',
  slots = list(
  ),
  contains = 'nc_helper'
)
#' @export
setValidity('response', function(object) {
  errors <- character()

  # returns
  if (length(errors) == 0) {
    TRUE
  } else {
    errors
  }
})
#' @rdname response
#' @export
setMethod('initialize',
          signature(.Object = 'response'),
          function (.Object, ...) {
            params <- list(...)

            # returns
            .Object <- callNextMethod()
            mt <- validObject(.Object)
            if (isTRUE(mt)) {
              return(.Object)
            } else {
              return(mt)
            }
          }
)