R/helpers.R

Defines functions soundex `%+%`

#' @export
soundex <- function(x) {
    stringdist::phonetic(trimws(tolower(x)), method = "soundex", useBytes = FALSE)
}

#' @export
`%+%` <- function(x, y) {
    paste0(trimws(x), trimws(y))
}
tarakc02/stringcandidates documentation built on May 19, 2019, 4:19 p.m.