Nothing
## test some print function(s)
### =========================
## AnnotParam related
### =========================
"test_printAnnotParamObject" <- function(){
obj <- new("AnnotParamObject")
## the printed value
checkTrue(capture.output(print(obj))=="Annotation provided manually ")
}
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.