R/termfilter.R

In wordnet: WordNet Interface

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]
}