Nothing
WN_filter_types <-
c("ContainsFilter", "EndsWithFilter", "ExactMatchFilter",
"RegexFilter", "SoundFilter", "StartsWithFilter",
"WildcardFilter")
getFilterTypes <-
function()
WN_filter_types
getTermFilter <-
function(type, word, ignoreCase)
{
type <- .expand_filter_type(type[1L])
.jnew(paste0("com.nexagis.jawbone.filter.", type),
word, ignoreCase)
}
.expand_filter_type <-
function(x)
{
y <- pmatch(tolower(x), tolower(WN_filter_types))
if(is.na(y))
stop(sprintf("Unknown filter type '%s'", x))
WN_filter_types[y]
}
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.