Concatenate Strings in R ( strConcat function ) [ R言語での文字列の連結 ]

strconcat.R

strConcat <- function(x, sep="") {
    return(paste(x, collapse=sep))
}


# example 1
s <- strConcat(c("abc", "efg", "hij"))
cat(s) # output is "abcefghij"

# example 2
s <- strConcat(c("abc", "efg", "hij"), sep=",")
cat(s) # output is "abc,efg,hij"

# example 3
s <- strConcat(c("abc", "efg", "hij"), ",")
cat(s) # output is "abc,efg,hij"

# example 4
a <- "xyz"
b <- "123"
u <- strConcat(c(a, b))
cat(u) # output is "xyz123"

# example 5
e <- c("a", "b", "c", "d", "e", "f")
t <- strConcat(e[2:4])
cat(t) # output is "bcd"