R/convertEnsemblToHgnc.R

In Sage-Bionetworks/AMPAD:

convertEnsemblToHgnc <- function(ensemblIds){

  library(biomaRt)
  ensembl=biomaRt::useMart('ENSEMBL_MART_ENSEMBL',
                           dataset = 'hsapiens_gene_ensembl',
                           host='uswest.ensembl.org')

  genes<-biomaRt::getBM(attributes = c('ensembl_gene_id','external_gene_name'),
                        filters='ensembl_gene_id',
                        values=ensemblIds,
                        mart=ensembl)
  return(genes)
}