Nothing
makeAnnotList <- function(xAnnot){
result <- list()
for(i in 1:nrow(xAnnot)){
result[[i]] <- xAnnot[i,2:4]
}
names(result) <- xAnnot[,1]
result
}
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.