R Shiny, no stack trace and unused argument

Question

I have the following code which should aggregate over a column chosen by user input and plot the result in a bar graph using ggplot

library(shiny)
library(tidyver