Nothing
setGeneric("citations", function(obj) standardGeneric("citations"))
setMethod("citations", ".MoveGeneral", function(obj) {
return(obj@citation)
})
setGeneric("citations<-", function(obj, value) standardGeneric("citations<-"))
setReplaceMethod("citations", ".MoveGeneral", function(obj, value) {
if (length(value) != 1) {
value <- as.character(value[1])
warning("There were more than one citation entered. Only using first element")
}
slot(obj, "citation", check = T) <- value
obj
})
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.