Create multiple shiny widgets based on subset of column headers of a dataframe in a shiny app

Question

I have the shiny app below in which the user may select between one or more column names from the data frame.

name<-c("John","Jack","