library("Gviz")
gen <- "hg19"
chr <- "chr2"
start <- 38292433
end <- 38305492
if(interactive()){
  BROWSER.SESSION="UCSC"
  mySession <- browserSession(BROWSER.SESSION)
  genome(mySession) <- gen
  iscatrack <-ISCATrack(gen,chrom,start,end,mySession, table="iscaPathogenic")
  plotTracks(iscatrack, from = start, to =end)
} else {
  data(ISCAtrack)
  plotTracks(iscatrack, from = start, to =end)
}
Run the code above in your browser using DataLab