Nothing
setClass("Rule", representation(math = "expression"), contains = c("SBase", "VIRTUAL"))
setGeneric("math", function(object) standardGeneric("math"))
setMethod("math", "Rule", function(object) object@math)
setGeneric("math<-", function(object, value) standardGeneric("math<-"))
setReplaceMethod("math", "Rule", function(object, value) {
object@math <- asMath(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.