Group 2: Exercise 1 (UI)

2. To make the prior changes work we need to create a new module to:

• Add a selector in the UI.

coltypeUI <- function(id) {
  selectInput(NS(id, "col_type"), "Select Type of Columns", 
              choices = c("numeric","character","factor"))
}