R/toVector.R

Defines functions toVector

toVector <- function(x){
    if (any(is.data.frame(x),is.matrix(x))){
        for (i in 1:ncol(x)) {
            if (i==1) {
                x.i=as.character(x[,i])
            }else{
                x.i=c(x.i,as.character(x[,i]))
            }
        }
       return(x.i) 
    }else if(is.list(x)){
        x=unlist(x)
        names(x)=NULL
        return(x)
    }else{
        x
    }
}

Try the do package in your browser

Any scripts or data that you put into this service are public.

do documentation built on Aug. 3, 2021, 5:06 p.m.