Nothing
#' Phonetic algorithms
#'
#' Translate strings to phonetic codes. Similar sounding strings should get
#' similar or equal codes.
#'
#' @param x a character vector whose elements are phonetically encoded.
#' @param method name of the algorithm used. The default is \code{"soundex"}.
#' @param useBytes Perform byte-wise comparison. \code{useBytes=TRUE} is faster
#' but may yield different results depending on character encoding. For more
#' information see the documentation of \code{\link{stringdist}}.
#'
#' @details
#' Currently, only the soundex algorithm is implemented. Note that soundex coding
#' is only meaningful for characters in the ranges a-z and A-Z. Soundex coding of strings
#' containing non-printable ascii or non-ascii characters may be system-dependent and should
#' not be trusted. If non-ascii or non-printable ascii charcters are encountered, a warning
#' is emitted.
#'
#' @seealso \code{\link{printable_ascii}}, \code{\link{stringdist-package}}
#'
#'
#' @return
#' The returns value depends on the method used. However, all currently
#' implemented methods return a character vector of the same length of the input
#' vector. Output characters are in the system's native encoding.
#'
#' @references
#' \itemize{
#' \item{The Soundex algorithm implemented is the algorithm used by the
#' \href{https://www.archives.gov/research/census/soundex}{National Archives}.
#' This algorithm differs slightly from the original algorithm patented by R.C. Russell
#' (US patents 1261167 (1918) and 1435663 (1922)).
#' }
#' }
#'
#' @example ../examples/phonetic.R
#'
#' @export
phonetic <- function(x, method = c("soundex"), useBytes = FALSE) {
x <- as.character(x)
method <- match.arg(method)
stopifnot(is.logical(useBytes))
if (!useBytes) x <- enc2utf8(x)
if (method == "soundex") {
r <- .Call("R_soundex", x, useBytes,PACKAGE="stringdist")
if (!useBytes) int2char(r) else r
}
}
int2char <- function(x) {
enc2native(sapply(x, intToUtf8))
}
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.