R/is_valid_email.R

In mjfii/Email-Validation:

is_valid_email <- function(x) {

  if (!is.character(x)) {
    cat('Vector argument must be a character.\n')
    return(NA)
  }

  proper_form <- "^(?=(.{1,64}@.{1,255}))([!#$%&'*+\\-\\/=?\\^_`{|}~a-zA-Z0-9}]{1,64}(\\.[!#$%&'*+\\-\\/=?\\^_`{|}~a-zA-Z0-9]{0,}){0,})@((\\[(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)(\\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)){3}\\])|([a-zA-Z0-9-]{1,63}(\\.[a-zA-Z0-9-]{2,63}){1,}))$"

  return(grepl(proper_form, x, perl=TRUE))
}