## ----shiny-dir, eval=FALSE-----------------------------------------------
## library(shiny)
## appDir <- system.file(package="UnderstandingRBioc", "shiny",
##     "AnnotationTable")
## runApp(appDir)