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	
}

Try the annotationTools package in your browser

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

annotationTools documentation built on Nov. 8, 2020, 6:58 p.m.