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 = "rfc2822")Run the code above in your browser using DataLab