R/listToCharacterVector.R

In alexandremkuhn/annotationTools: Annotate microarrays and perform cross-species gene expression analyses using flat file databases

Defines functions listToCharacterVector

Documented in listToCharacterVector

listToCharacterVector<-function(lst,sep=' /// ') {

	isna<-is.na(lst)
	v<-rep(NA,length(lst))
	if (sum(isna)!=length(isna)) v[!isna]<-sapply(lst[!isna],function(x) {paste(x,collapse=sep)})
	v	
}