Nothing
wordStem <- function(words, language = "porter")
{
words <- as.character(words)
language <- as.character(language[1])
.Call("R_stemWords", words, language, PACKAGE="SnowballC")
}
getStemLanguages <- function()
{
.Call("R_getStemLanguages", PACKAGE="SnowballC")
}
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.