Tip: Multiple output (APP)

Don’t forget to evaluate x$value() rather than as we want the module to react to the value changing.

histogramApp <- function() {
  ui <- fluidPage(...)

  server <- function(input, output, session) {
    data <- datasetServer("data")
    x <- selectVarServer("var", data)
    histogramServer("hist", x$value, x$name)
  }
  shinyApp(ui, server)
}