Problems with reactive dataframe and update input in shin R

Question

I am still a beginner with the use of shiny (and the following code will clearly demonstrate this fact). I have to generate two barplot in this example of the work I am doin