I have a table of over 100K names and addresses . I would like to filter the table to keep only those emails I think are not spam.
i have for example addresses as such
[email protected]
[email protected]
[email protected]
I would like to filter now those addresses that have only digit before the @
symbol as well as those emails which have only digit after the @
, but before the suffix .com
.
I know I can extract them using str_split
and grepl
, but I can't fit them into a filter
query to remove them from the table.
pattern <- "[email protected]"
str_split(pattern, '@') # this will split the address based on the sumbol
str_split(string = str_split(pattern, '@')[[1]][2], pattern = "\\.") # this will split the doamin name based on the dot separating the suffix from the numbers.
as.numeric(str_split(string = str_split(pattern, '@')[[1]][2], pattern = "\\.")[[1]][1]) # This for example will check if the string extracted above contains only numbers, if not it will return NA
But how do I combine this in a tidyverse
query?
thanks
P.S. I know this is a farfetched question, but is there some kind a spam filter for email address one can use within R?