R/uniqueAnnotationCategory.R

In schalkwyk/wateRmelon: Illumina 450 and EPIC methylation array normalization and metrics

uniqueAnnotationCategory <-
function(list){
		temp <- function(x){
			res <- unique(as.vector(unlist(strsplit(x, split=";"))))
			if(length(res)>1) return("multipleAnnot")
			if(length(res)==1) return(res)
			if(length(res)==0) return(NA)
		}

	searchList <- apply(as.matrix(list), 1, temp)

	indexNA <- which(is.na(searchList))

	if(length(indexNA)>0) searchList[indexNA] <- "NA"

	searchList <- unique(searchList)
		
	return(searchList)
}