Nothing
getAnnos <- function(){
anno <- RQDAQuery("select annotation.fid, annotation, annotation.date, source.name from annotation join source where annotation.fid==source.id and annotation != '' ")
Encoding(anno$annotation) <- Encoding(anno$name) <- "UTF-8"
attr(anno,"field.name") <- "annotation"
attr(anno, "descr") <- sprintf("%i %s", nrow(anno), ngettext(nrow(anno), "Annotaiton", "Annotations"))
class(anno) <- c("annotations", "Info4Widget", "data.frame")
anno
}
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.