## ----style, echo = FALSE, results = 'asis'------------------------------------
BiocStyle::markdown()

## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE, warning = FALSE, message = FALSE)

## ----env, message = FALSE, warning = FALSE, echo = FALSE----------------------
library("omXplore")

## ----eval=FALSE---------------------------------------------------------------
# myFirstPlot <- function(obj, i) {
#   ui <- myFirstPlot_ui(id)
#   server <- myFirstPlot_server(id, obj, i)
#   app <- shinyApp(ui = ui, server = server)
# }

## ----eval=FALSE---------------------------------------------------------------
# myFirstPlot <- function(obj, i) {
#   ui <- function(id) {
#   ...
#   }
#   server <- function(id, obj, i) {
#   moduleServer(id,
#     function(input, output, session) {
#     ...
#   })
#   }
# 
#   app <- shinyApp(ui = ui, server = server)
# }

## ----eval=FALSE---------------------------------------------------------------
# myFirstPlot_ui <- function(id) {
#   ...
# }
# 
# 
# myFirstPlot_server <- function(id, obj, i) {
#   moduleServer(id,
#     function(input, output, session) {
#     ...
#   })
# }
# 
# myFirstPlot <- function(obj, i) {
#   ui <- myFirstPlot_ui(id)
#   server <- myFirstPlot_server(id, obj, i)
#   app <- shinyApp(ui = ui, server = server)
# }

## ----eval = FALSE-------------------------------------------------------------
# addons <- list(
#   myPkgA = c("extFoo1", "extFoo2"),
#   myPkgB = c("extFoo1")
#   )
# view_dataset(myData, addons)

## ----eval=FALSE---------------------------------------------------------------
# omXplore_mySecondPlot <- function(obj, i) {
#   ui <- omXplore_mySecondPlot_ui(id)
#   server <- omXplore_mySecondPlot_server(id, obj, i)
#   app <- shinyApp(ui = ui, server = server)
# }

## -----------------------------------------------------------------------------
sessionInfo()