R/probeAnnotation.R

In Caleb-Huo/genomicLibrary: commonly used genomic functions in R

##' @export
probeAnnotation <- function(probes, platformSYMBOL){
	x <- platformSYMBOL
	# Convert to a list
	xx <- AnnotationDbi::as.list(x)
	
	matchProbeIndex = match(probes,names(xx))
	naive <- function(x){
		if(is.null(x)){
			return(NA)
		}
		return(x)
	}
	geneNames = sapply(xx[matchProbeIndex],naive)
	geneNames
}

## examples
## allProbes <- rownames(data_GSE4922)
## wholeGenes = probeAnnotation(allProbes)