replace_names {textclean}

Replace First/Last Names

Description

Replaces first/last names.

Usage

replace_names(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 = "", ...)

Arguments

x

The text variable.

names

A vector of names to replace. This may be made more custom through a vector provided from a named entity extractor.

replacement

A string to replace names with.

...

Other arguments passed to replace_tokens.

Value

Returns a vector with names replaced.

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>>')