library("Gviz")
gen <- "hg38"
chrom <- "chr2"
start <- 10000000
end <- 100000000
if(interactive()){
geneRtrack <-GeneReviews_UCSC(gen,chrom,start,end,showId=TRUE)
plotTracks(geneRtrack, from = start, to = end)
} else {
data(GeneReviewTrack)
plotTracks(geneRtrack, from = start, to = end)
}
Run the code above in your browser using DataLab