use_biomaRt.R

#' Use biomaRt
#' @description Short function get information from biomaRt.
#' @param gene_names Vector of gene names as ensembl_gene_id
#' @examples
#
#' @return
#' @importFrom biomaRt useMart getBM
use_biomaRt <- function(gene_names, ... ) {
  ensembl = useMart("ensembl", dataset="hsapiens_gene_ensembl")
  ensg_de_lung <- getBM(mart=ensembl,
                       filters=c("ensembl_gene_id"),
                       attributes=c("ensembl_gene_id", "entrezgene_id", "hgnc_symbol", "description", "chromosome_name","band"),
                       values = gene_names)
}