R/strrep.R

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

#' @title Backport of strrep for R < 3.3.0
#' @rdname strrep
#'
#' @description
#' See the original description in \code{base::strrep}.
#'
#' @keywords internal
#' @rawNamespace if (getRversion() < "3.3.0") export(strrep)
#' @examples
#' # get function from namespace instead of possibly getting
#' # implementation shipped with recent R versions:
#' bp_strrep = getFromNamespace("strrep", "backports")
#'
#' bp_strrep("-", 10)
strrep = function(x, times) {
  x = as.character(x)
  if (length(x) == 0L)
    return(x)
  unlist(.mapply(function(x, times) {
    if (is.na(x) || is.na(times))
      return(NA_character_)
    if (times <= 0L)
      return("")
    paste0(replicate(times, x), collapse = "")
  }, list(x = x, times = times), MoreArgs = list()), use.names = FALSE)
}