library("Gviz")
library("rtracklayer")
gen <- "hg19"
chr <- "chr2"
start <- 38290160
end <- 38303219
color <- "coMET"
if(interactive()) {
BROWSER.SESSION="UCSC"
mySession <- browserSession(BROWSER.SESSION)
genome(mySession) <- gen
track.name="Broad ChromHMM"
tablestrack<-tableNames(ucscTableQuery(mySession, track=track.name))
table.name<-tablestrack[1]
chromhmmtrackone<-chromatinHMMOne_UCSC(gen,chr,start,end,mySession,color="coMET",table.name)
plotTracks(chromhmmtrackone, from = start, to =end)
}else {
data(chromhmmtrackone)
plotTracks(chromhmmtrackone, from = start, to =end)
}
Run the code above in your browser using DataLab