R/paste.R

In EricLamphere/ezextras: Utility functions to make coding and analysis even faster

#' Surround Text With Text
#'
#' Wrapper for a common
#'
#' @param text Character vector
#' @param with Character, string to wrap around each component of `text`
#' @param ... Additional arguments passed to [paste0()]
#'
#' @return Character vector
#'
#' @examples
#' wrap(c("text1", "text2"), "'")
#' wrap(c("text1", "text2"), "'", collapse = ", ")
#' wrap(c("text1", "text2"), collapse = ", ")
#'
#' @export
wrap <- function(text, with = "", ...) {
  paste0(
    with,
    text,
    with,
    ...
  )
}