R/write_mail_list.r

In leoluyi/EOLembrainToolbox: EOLembrain Data Manipulation Toolbox

#' write_mail_list
#'
#' @param ids 
#' @param file_name 
#'
#' @return txt file
#'
#' @examples
#' \dontrun{
#' id_output %>% write_mail_list("xxxx_sent_id.txt")
#' }
#' @export 
write_mail_list <- function(ids, file_name) {
  
  ids_length <- length(ids)
  if (ids_length == 0) stop("`ids` has zero length");
  
  new_file_name <- gsub(".txt$", paste0("_", Sys.Date(), ".txt", collapse=""), file_name)
  write.table(ids, file = new_file_name, quote=F, row.names=F, col.names=F)
  
  cat("-> (\u5171\u8a08",
      ids_length,
      "\u500bID) mail list \u5df2\u532f\u51fa\u81f3", 
      new_file_name, 
      "\n\n")
  
  invisible()
}