R/listToCharacterVector.R

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	
}
alexandremkuhn/annotationTools documentation built on April 5, 2020, 12:59 a.m.