join.columns: A function to collapse columns as strings.
In dgrapov/devium: Dynamic Multivariate Data Analysis and Visualization Platform

1	join.columns(obj)

obj

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (obj) 
{
    if (class(obj) == "list") {
        obj <- as.matrix(obj[[1]])
    }
    else {
        obj <- as.matrix(obj)
    }
    if (length(obj) == 0) {
        return(NULL)
    }
    else {
        if (ncol(as.matrix(obj)) >= 2) {
            n <- ncol(obj)
            out <- data.frame()
            sobj <- obj
            i <- 1
            for (i in 1:(n - 1)) {
                sobj[, i] <- paste(as.character(obj[, i]), as.character(obj[, 
                  i + 1]), sep = "|")
            }
            sobj[, -n]
        }
        else {
            obj
        }
    }
  }