| rm_phone {qdapRegex} | R Documentation |
Remove/replace/extract phone numbers from a string.
rm_phone(text.var, trim = !extract, clean = TRUE, pattern = "@rm_phone",
replacement = "", extract = FALSE,
dictionary = getOption("regex.library"), ...)
ex_phone(text.var, trim = !extract, clean = TRUE, pattern = "@rm_phone",
replacement = "", extract = TRUE,
dictionary = getOption("regex.library"), ...)
text.var |
The text variable. |
trim |
logical. If |
clean |
trim logical. If |
pattern |
A character string containing a regular expression (or
character string for |
replacement |
Replacement for matched |
extract |
logical. If |
dictionary |
A dictionary of canned regular expressions to search within
if |
... |
Other arguments passed to |
Returns a character string with phone numbers removed.
stackoverflow's Marius and Tyler Rinker <tyler.rinker@gmail.com>.
The phone regular expression was taken from: http://stackoverflow.com/a/21008254/1000343
Other rm_ functions: rm_abbreviation,
rm_between, rm_bracket,
rm_caps_phrase, rm_caps,
rm_citation_tex, rm_citation,
rm_city_state_zip,
rm_city_state, rm_date,
rm_default, rm_dollar,
rm_email, rm_emoticon,
rm_endmark, rm_hash,
rm_nchar_words, rm_non_ascii,
rm_non_words, rm_number,
rm_percent, rm_postal_code,
rm_repeated_characters,
rm_repeated_phrases,
rm_repeated_words, rm_tag,
rm_time, rm_title_name,
rm_url, rm_white,
rm_zip
x <- c(" Mr. Bean bought 2 tickets 2-613-213-4567 or 5555555555 call either one",
"43 Butter Rd, Brossard QC K0A 3P0 - 613 213 4567",
"Please contact Mr. Bean (613)2134567",
"1.575.555.5555 is his #1 number",
"7164347566",
"I like 1234567 dogs"
)
rm_phone(x)
ex_phone(x)