Nothing
getLemma <-
function(indexterm)
{
.jcall(indexterm, "S", "getLemma")
}
getSynsets <-
function(indexterm)
{
.jcall(indexterm, "[Lcom/nexagis/jawbone/Synset;", "getSynsets")
}
getSynonyms <-
function(indexterm)
{
synsets <-
.jcall(indexterm, "[Lcom/nexagis/jawbone/Synset;", "getSynsets")
sort(unique(unlist(lapply(synsets, getWord))))
}
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.