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