library("Gviz")
chrom <- "chr2"
start <- 100000
end <- 1000000
gen <- "hg38"
if(interactive()) {
cpgIstrack<-cpgIslands_UCSC(gen, chrom, start, end)
plotTracks(cpgIstrack, from = start, to =end)
}else {
data(cpgIslandtrack)
plotTracks(cpgIstrack, from = start, to =end)
}
Run the code above in your browser using DataLab