Nothing
setClass("GraphicalObject", representation(id = "character", boundingBox = "BoundingBox"),
contains = "SBase")
setMethod("describe", "GraphicalObject",
function(object) {
paste("in ", describe(boundingBox(object)), sep = "")
})
setMethod("id", "GraphicalObject", function(object) object@id)
setGeneric("boundingBox", function(object) standardGeneric("boundingBox"))
setMethod("boundingBox", "GraphicalObject", function(object) object@boundingBox)
setReplaceMethod("id", "GraphicalObject", function(object, value) {
object@id <- value
object
})
setGeneric("boundingBox<-", function(object, value) standardGeneric("boundingBox<-"))
setReplaceMethod("boundingBox", "GraphicalObject", function(object, value) {
object@boundingBox <- 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.