## ----setup, include = FALSE-------------------------------------------------------------------------------------------
options(width = 120)
knitr::opts_chunk$set(
   collapse = TRUE,
   eval = interactive(),
   echo = TRUE,
   comment = "#>"
)

## ----eval=FALSE-------------------------------------------------------------------------------------------------------
# library(igvR)
# igv <- igvR()
# setBrowserWindowTitle(igv, "Stock Genomes")
# print(sort(getSupportedGenomes(igv)))

## ----eval=FALSE-------------------------------------------------------------------------------------------------------
# setGenome(igv, "hg38_1Kg")
# showGenomicRegion(igv, "APOE")
# zoomOut(igv)

## ----eval=TRUE, echo=FALSE, out.width="95%"---------------------------------------------------------------------------
knitr::include_graphics("stockGenomes.png")

## ----eval=TRUE--------------------------------------------------------------------------------------------------------
sessionInfo()