library("Gviz")
gen <- "hg19"
chr <- "chr7"
start <- 38290160
end <- 38303219
if(interactive()){
  xenogenestrack<-xenorefGenesUCSC(gen,chr,start,end,showId=TRUE)
  plotTracks(xenogenestrack, from=start, to=end) 
} else {
  data(xenogenestrack)
  plotTracks(xenogenestrack, from=start, to=end) 
}
Run the code above in your browser using DataLab