#' @export
soundex <- function(x) {
stringdist::phonetic(trimws(tolower(x)), method = "soundex", useBytes = FALSE)
}
#' @export
`%+%` <- function(x, y) {
paste0(trimws(x), trimws(y))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.