R: Replace Email Addresses

replace_email {textclean} | R Documentation

## Replace Email Addresses

### 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 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)
        }
    )

[Package textclean version 0.9.3 Index]