Using input to unique vector is not work in R shiny

Question

I want to use the input to select the variable in the dataframe and unique it to get a vector.

But it\'s not work.

library(shiny)

ui <- fluidPage(