library("Gviz")
gen <- "hg19"
chr <- "chr7"
start <- 38290160
end <- 38303219
if(interactive()){
dataset<- "hsapiens_gene_ensembl"
geneNameEnsembl<- genesNameENSEMBL(gen,chr,start,end,dataset)
geneNameEnsembl
} else {
data(geneNameEnsembl)
geneNameEnsembl
}
Run the code above in your browser using DataLab