library("Gviz")
gen <- "hg19"
chr <- "chr2"
start <- 38290160
end <- 38303219
if(interactive()){
  geneRtrack <-GeneReviewsTrack(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