Trying to pass R Shiny input as variable name

Could you include your chunks in a simple shiny app and post the full code?