replace_email: Replace Email Addresses

In textclean: Text Cleaning Tools

Description

Replaces email addresses.

Usage

replace_email(x, pattern = qdapRegex::grab("rm_email"), replacement = "",
  ...)

Arguments

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.

Value

Returns a vector with email addresses replaced.

Examples

x <- c(
    "fred is [e-mail] and joe is [e-mail] - but @this is a", 
    "twitter handle for [e-mail] or [e-mail]/[e-mail]", 
    "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)
    }
)

Example output

[1] "fred is  and joe is  - but @this is a"
[2] "twitter handle for  or /"             
[3] "hello world"                          
[4] NA                                     
[1] "fred is <<EMAIL>> and joe is <<EMAIL>> - but @this is a"
[2] "twitter handle for <<EMAIL>> or <<EMAIL>>/<<EMAIL>>"    
[3] "hello world"                                            
[4] NA                                                       
[1] "fred is <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a> and joe is <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a> - but @this is a"                                                                 
[2] "twitter handle for <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a> or <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a>/<a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a>"
[3] "hello world"                                                                                                                                                                                                                                     
[4] NA                                                                                                                                                                                                                                                
[1] "fred is <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a> and joe is <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a> - but @this is a"                                                                 
[2] "twitter handle for <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a> or <a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a>/<a href=\"mailto:[e-mail]\" target=\"_blank\">[e-mail]</a>"
[3] "hello world"                                                                                                                                                                                                                                     
[4] NA                                                                                                                                                                                                                                                
[1] "fred is fred {{at domain}} and joe is joe {{at domain}} - but @this is a"         
[2] "twitter handle for twit {{at domain}} or foo+bar {{at domain}}/fred {{at domain}}"
[3] "hello world"                                                                      
[4] NA                                                                                 

textclean documentation built on May 2, 2019, 7:22 a.m.