R/ATrigger.R

setClass("Trigger", representation(math = "expression"), contains = "SBase")

setMethod("describe", "Trigger", function(object) as.character(math(object)))

setMethod("math", "Trigger", function(object) object@math)

setReplaceMethod("math", "Trigger", function(object, value) {
  object@math <- value
  object
})

Try the rsbml package in your browser

Any scripts or data that you put into this service are public.

rsbml documentation built on Nov. 8, 2020, 8:09 p.m.