R/parties.R

In emayili: Send Email Messages

#' Extract sender and recipient(s)
#'
#' @param msg A message object.
#'
#' @return A tibble.
#' @export
#'
#' @examples
#' msg <- envelope() %>%
#'   from("Gerald <gerald@gmail.com>") %>%
#'   to(c("bob@gmail.com", "alice@yahoo.com")) %>%
#'   cc("Craig     < craig@gmail.com>") %>%
#'   bcc("  Erin   <erin@yahoo.co.uk    >")
#'
#' parties(msg)
parties <- function(msg) {
  # Avoid "no visible binding for global variable" note.
  address <- NULL # nocov

  PARTIES <- c("From", "To", "Cc", "Bcc")
  #
  # Retain only populated headers.
  #
  PARTIES <- intersect(PARTIES, names(msg$headers))

  map(msg$headers[PARTIES], ~ .$values) %>%
    tibble(type = names(.), address = .) %>%
    mutate(
      # Split addresses so that there is one record per address.
      address = map(address, cleave)
    ) %>%
    unnest(cols = c(address)) %>%
    mutate(
      display = map_chr(address, display),
      raw = map_chr(address, raw),
      local = map_chr(address, local),
      domain = map_chr(address, domain),
      address = map_chr(address, as.character)
    )
}