Nothing
setClass("CompartmentGlyph", representation(compartment = "character"), contains = "GraphicalObject")
setMethod("describe", "CompartmentGlyph", function(object) {
paste(describe(compartment(object)), callNextMethod(object))
})
setGeneric("compartment", function(object) standardGeneric("compartment"))
setMethod("compartment", "CompartmentGlyph", function(object) object@compartment)
setGeneric("compartment<-", function(object, value) standardGeneric("compartment<-"))
setReplaceMethod("compartment", "CompartmentGlyph", function(object, value) {
object@compartment <- value
object
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.