Remove/Replace/Extract Person Tags

Usage

rm_tag(text.var, trim = !extract, clean = TRUE, pattern = "@rm_tag", 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_tag uses the rm_tag regex from the regular expression dictionary from the dictionary argument.
replacement
Replacement for matched pattern.
extract
logical. If TRUE the person tags 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 person tags removed.

Description

Remove/replace/extract person tags from a string.

Details

The default regex pattern "(? is more liberal and searches for the at (@) symbol followed by any word. This can be accessed via pattern = "@rm_tag". Twitter user names are more constrained. A second regex ("(?) is provide that contains the latter word to substring that begins with an at (@) followed by a word composed of alpha-numeric characters and underscores, no longer than 15 characters. This can be accessed via pattern = "@rm_tag2" (see Examples).

Examples

x <- c("@hadley I like #rstats for #ggplot2 work.", "Difference between #magrittr and #pipeR, both implement pipeline operators for #rstats: http://renkun.me/r/2014/07/26/difference-between-magrittr-and-pipeR.html @timelyportfolio", "Slides from great talk: @ramnath_vaidya: Interactive slides from Interactive Visualization presentation #user2014. http://ramnathv.github.io/user2014-rcharts/#1", "tyler.rinker@gamil.com is my email", "A non valid Twitter is @abcdefghijklmnopqrstuvwxyz" ) rm_tag(x)
[1] "I like #rstats for #ggplot2 work." [2] "Difference between #magrittr and #pipeR, both implement pipeline operators for #rstats: http://renkun.me/r/2014/07/26/difference-between-magrittr-and-pipeR.html" [3] "Slides from great talk: : Interactive slides from Interactive Visualization presentation #user2014. http://ramnathv.github.io/user2014-rcharts/#1" [4] "tyler.rinker@gamil.com is my email" [5] "A non valid Twitter is"
rm_tag(rm_hash(x))
[1] "I like for work." [2] "Difference between and , both implement pipeline operators for : http://renkun.me/r/2014/07/26/difference-between-magrittr-and-pipeR.html" [3] "Slides from great talk: : Interactive slides from Interactive Visualization presentation . http://ramnathv.github.io/user2014-rcharts/#1" [4] "tyler.rinker@gamil.com is my email" [5] "A non valid Twitter is"
rm_tag(x, extract=TRUE)
[[1]] [1] "@hadley" [[2]] [1] "@timelyportfolio" [[3]] [1] "@ramnath_vaidya" [[4]] [1] NA [[5]] [1] "@abcdefghijklmnopqrstuvwxyz"
## more restrictive Twitter regex rm_tag(x, extract=TRUE, pattern="@rm_tag2")
[[1]] [1] "@hadley" [[2]] [1] "@timelyportfolio" [[3]] [1] "@ramnath_vaidya" [[4]] [1] NA [[5]] [1] NA
## Remove only the @ sign rm_tag(x, replacement = "\\3")
[1] "hadley I like #rstats for #ggplot2 work." [2] "Difference between #magrittr and #pipeR, both implement pipeline operators for #rstats: http://renkun.me/r/2014/07/26/difference-between-magrittr-and-pipeR.html timelyportfolio" [3] "Slides from great talk: ramnath_vaidya: Interactive slides from Interactive Visualization presentation #user2014. http://ramnathv.github.io/user2014-rcharts/#1" [4] "tyler.rinker@gamil.com is my email" [5] "A non valid Twitter is abcdefghijklmnopqrstuvwxyz"
rm_tag(x, replacement = "\\3", pattern="@rm_tag2")
[1] "hadley I like #rstats for #ggplot2 work." [2] "Difference between #magrittr and #pipeR, both implement pipeline operators for #rstats: http://renkun.me/r/2014/07/26/difference-between-magrittr-and-pipeR.html timelyportfolio" [3] "Slides from great talk: ramnath_vaidya: Interactive slides from Interactive Visualization presentation #user2014. http://ramnathv.github.io/user2014-rcharts/#1" [4] "tyler.rinker@gamil.com is my email" [5] "A non valid Twitter is @abcdefghijklmnopqrstuvwxyz"