#' @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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.