## ----eval=FALSE,echo=TRUE------------------------------------------------
## library(epivizrStandalone)
## library(Mus.musculus)
## 
## app <- startStandalone(Mus.musculus, keep_seqlevels=paste0("chr",c(1:19,"X","Y")))	

## ----eval=TRUE,echo=FALSE,message=FALSE----------------------------------
library(epivizrStandalone)
library(Mus.musculus)

app <- startStandalone(seqinfo=seqinfo(Mus.musculus), keep_seqlevels=paste0("chr",c(1:19,"X","Y")),
                       non_interactive=TRUE, try_ports=TRUE)

app$server$start_server()	

## ------------------------------------------------------------------------
app$stop_app()