R/SpeciesGlyph.R

setClass("SpeciesGlyph", representation(species = "character"), contains = "GraphicalObject")

setMethod("describe", "SpeciesGlyph",
          function(object) paste(species(object), callNextMethod(object)))

setMethod("species", "SpeciesGlyph", function(object) object@species)

setReplaceMethod("species", "SpeciesGlyph", function(object, value) {
  object@species <- 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.