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