R/variablesRB3D.R

#' @export
setMethod("variablesRB3D", "SimulationFilter", function(x) x@variablesRB3D)
#' @export
setMethod("variablesRB3D<-", "SimulationFilter", function(x, value){
    x@variablesRB3D <- value
    if (validObject(x, complete = TRUE)) return(x)
})
#' @export
setMethod("variablesRB3D", "SimulationFiles", function(x) x@simulationFilter@variablesRB3D)
willmorrison1/daRt documentation built on Feb. 23, 2022, 2:13 a.m.