R/paste2.R

In lovetoken/useful.lovetoken: Useful functions for lovetoken

#' Ignore NA paste function
#' @description Ignore NA paste function
#' @seealso \link{paste0}
#' @export
#' @examples
#' A <- "Hello "
#' B <- c("world", "world!", NA)
#' paste0(A, B)
#' paste2(A, B)

paste2 <- function(...){

  stopifnot(require(dplyr))

  li <- list(...)
  lapply(li, function(x){
    x[is.na(x)] <- "" ;x
  }) %>%
    data.frame %>%
    apply(1, function(x, ...) paste0(x, collapse = ""))

}