App 2: Extracting a numeric variable (UI)

create a control that allows the user to select variables of specified type from a given reactive dataset.

selectVarInput <- function(id) {
  selectInput(NS(id, "var"), "Variable", choices = NULL) 
}