R/paste.R

In mllg/backports: Reimplementations of Functions Introduced Since R-3.0.0

#' @title Backport of paste for R < 4.0.1
#' @rdname paste
#'
#' @description
#' See the original description in \code{base::paste}.
#'
#' @keywords internal
#' @rawNamespace if (getRversion() < "4.0.1") export(paste)
#' @examples
#' # get function from namespace instead of possibly getting
#' # implementation shipped with recent R versions:
#' bp_paste = getFromNamespace("paste", "backports")
#' bp_paste(letters[1:3], character(), collapse = NULL, recycle0 = TRUE)
paste <- function(..., sep = " ", collapse = NULL, recycle0 = FALSE) {
  if(recycle0 && any(lengths(list(...)) == 0L)) {
    base::paste(sep = sep, collapse = collapse) # for argument checking

    if (is.null(collapse)) character() else ""
  } else {
    base::paste(..., sep = sep, collapse = collapse)
  }
}