In the block for obeserveEvent(input$Go,...),It looks like there’s a missing line. It’s the line that takes values() and selects the user selected column (eg, feedback1).
If you like the stringr package, you might consider using tidyverse especially if you will be cleansing data, building summaries and creating visualizations. This would also allow you to select columns using:
df %>% select(input$Question)
For more info: