R/vector2string.R

In jixing475/manuscriptsJX: manuscripts tools

#' @title vector2string
#' @description Convert vector to string
#'
#' @param vector The input vector to convert
#' @param sep The separater with default value ", "
#'
#' @rdname vector2string
#' @return a string
#' @export



vector2string <- function (vector, sep = ", ")
{
    s <- as.character(vector[1])
    if (length(vector) > 1) {
        for (i in 2:length(vector)) {
            s <- paste(s, vector[i], sep = sep)
        }
    }
    return(s)
}