Loading a bed file using epivizr

gistfile1.r

library(epivizr)
library(rtracklayer)

# download example bed file
download.file("https://raw.githubusercontent.com/arq5x/bedtools/master/data/aluY.hg19.bed.gz", destfile="test.bed.gz", method="curl")

# start UI
mgr <- startEpiviz(workspace="mi9NojjqT1l")

# import bed file
gr <- import(BEDFile("test.bed.gz"))

# drop data from unplaced contigs
gr <- keepSeqlevels(gr, paste0("chr",c(1:22,"X","Y")))

# add track with bed file data
dev <- mgr$addDevice(gr, "example bed")

# finish up
mgr$stopServer()