Remove/Replace/Extract Words With Repeating Characters

Usage

rm_repeated_characters(text.var, trim = !extract, clean = TRUE, pattern = "@rm_repeated_characters", replacement = "", extract = FALSE, dictionary = getOption("regex.library"), ...)

Arguments

text.var
The text variable.
trim
logical. If TRUE removes leading and trailing white spaces.
clean
trim logical. If TRUE extra white spaces and escaped character will be removed.
pattern
A character string containing a regular expression (or character string for fixed = TRUE) to be matched in the given character vector. Default, @rm_repeated_characters uses the rm_repeated_characters regex from the regular expression dictionary from the dictionary argument.
replacement
Replacement for matched pattern.
extract
logical. If TRUE the words with repeating characters are extracted into a list of vectors.
dictionary
A dictionary of canned regular expressions to search within if pattern begins with "@rm_".
...
Other arguments passed to gsub.

Value

Returns a character string with percentages removed.

Description

Remove/replace/extract words with repeating characters. The word must contain characters, each repeating at east 2 times

Examples

x <- "aaaahahahahaha that was a good joke peep and pepper and pepe" rm_repeated_characters(x)
[1] "that was a good joke peep and pepper and"
rm_repeated_characters(x, extract=TRUE)
[[1]] [1] "aaaahahahahaha" "pepe"