App 4: Bind and Histogram (UI)

We can create a module to define the number of bins and display the histogram.

histogramOutput <- function(id) {
  tagList(
    numericInput(NS(id, "bins"), "bins", 10, min = 1, step = 1),
    plotOutput(NS(id, "hist"))
  )
}