Description Usage Arguments Value Examples
View source: R/replace_email.R
Replaces email addresses.
1 | replace_email(x, pattern = qdapRegex::grab("rm_email"), replacement = "", ...)
|
x |
The text variable. |
pattern |
Character time regex string to be matched in the given character vector. |
replacement |
A function to operate on the extracted matches or a character string which is a replacement for the matched pattern. |
... |
ignored. |
Returns a vector with email addresses replaced.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | x <- c(
"fred is fred@foo.com and joe is joe@example.com - but @this is a",
"twitter handle for twit@here.com or foo+bar@google.com/fred@foo.fnord",
"hello world",
NA
)
replace_email(x)
replace_email(x, replacement = '<<EMAIL>>')
replace_email(x, replacement = '<a href="mailto:$1" target="_blank">$1</a>')
## Replacement with a function
replace_email(x,
replacement = function(x){
sprintf('<a href="mailto:%s" target="_blank">%s</a>', x, x)
}
)
replace_email(x,
replacement = function(x){
gsub('@.+$', ' {{at domain}}', x)
}
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.