#' Replace First/Last Names
#'
#' Replaces first/last names.
#'
#' @param x The text variable.
#' @param names A vector of names to replace. This may be made more custom
#' through a vector provided from a named entity extractor.
#' @param replacement A string to replace names with.
#' @param \dots Other arguments passed to
#' \code{\link[textclean]{replace_tokens}}.
#' @return Returns a vector with names replaced.
#' @export
#' @examples
#' x <- c(
#' "Mary Smith is not here",
#' "Karen is not a nice person",
#' "Will will do it",
#' NA
#' )
#'
#' replace_names(x)
#' replace_names(x, replacement = '<<NAME>>')
replace_names <- function(x,
names = textclean::drop_element(
gsub(
"(^.)(.*)", "\\U\\1\\L\\2",
c(lexicon::freq_last_names[[1]],
lexicon::common_names
), perl = TRUE),
"^([AIU]n|[TSD]o|H[ea]Pa|Oh)$"
),
replacement = "", ...) {
replace_tokens(x, names, replacement, ...)
}
im_ad <- lexicon::available_data
im_cmn <- lexicon::common_names
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.