R/wrappers.r

In wrathematics/TAG: Text Analytics Gateway

#' Levenshtein Distance
#' 
#' @param s,t
#' Strings.
#' 
#' @export
levenshtein_dist <- function(s, t)
{
  .Call(R_levenshtein_dist, s, t)
}



#' Find Closest Word
#' 
#' @param input
#' A string.
#' @param words
#' A vector of strings (vocabulary) to compare against the input word.
#' 
#' @export
find_closest_word <- function(input, words)
{
  .Call(R_find_closest_word, input, words)
}



#' Count Words of a String
#' 
#' See title.
#' 
#' The basic logic is to call a word something separated by one or
#' more "spaces" (literal space, tab, ...).  Special treatment is
#' given to multiline text with a dangling dash.
#' 
#' @param string
#' A string.
#' @param maxwordlen
#' Maximum length of words to consider.
#' @param maxsenlen
#' Maximum length of sentences to consider.
#' @param maxsyllen
#' Maximum length of syllables to consider.
#' 
#' @return
#' The number of words.
#' 
#' @export
wc <- function(string, maxwordlen=16, maxsenlen=20, maxsyllen=10)
{
  .Call(R_wc, string, as.integer(maxwordlen), as.integer(maxsenlen), as.integer(maxsyllen))
}