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