# NOT RUN {
addresses <- c(
ok = "a@b.com",
no_at = "a_at_b.com",
no_dot = "a@bcom",
long_tld = "a@b.comma",
punct = "a!$&@b.com",
missing = NA
)
is_email_address(addresses)
is_email_address(addresses, method = "rfc5322")
# }
Run the code above in your browser using DataLab