Group 2: Exercise 1 (Server)

3. Update the module app to pass the reactive filter created.

server <- function(input, output, session) {
  data <- datasetServer("data")
  
  # Extracting the filter function as reactive value
  fun_col_type <- coltypeServer("col_type", data)
  
  # Passing the reactive filter to the report
  x <- selectVarServer("var", data, fun_col_type)
  
  histogramServer("hist", x$value, x$name)
}