R/vec2string.R

In kbroman/broman: Karl Broman's R Code

#' Turn a vector into a single character string
#'
#' Turn a vector into a single character string with the items separated by commas and an "and".
#'
#' @param x A vector
#' @param conjunction Word used to combine the strings
#'
#' @export
#'
#' @examples
#' vec2string(letters[1:2])
#' vec2string(letters[1:4])
#' vec2string(letters[1:4], "or")
vec2string <-
    function(x, conjunction="and")
{
    n <- length(x)

    if(n==0) return("")
    if(n==1) return(paste(x))
    if(n==2) return(paste(x, collapse=paste0(" ", conjunction, " ")))

    paste(paste(x[-n], collapse=", "), x[n],
          sep=paste0(", ", conjunction, " "))
}