## ----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()