library("Gviz")
gen <- "hg38"
chr <- "chr2"
start <- 38290160
end <- 38303219
if(interactive()){
  strutrack <- structureBiomart_ENSEMBL(chr, start, end,
                              strand, dataset="hsapiens_structvar_som")
  plotTracks(strutrack, from=start, to=end)
}else {
  data(strucBiomarttrack)
  plotTracks(strutrack, from=start, to=end)
}
Run the code above in your browser using DataLab