Update server.R

selectizeInput, now working. Bug fixed in the development version of shiny
For some reason, I could not figure out why, the app was super slow in switching the available plot. I re-edited an old version of the server.R
Now it works fine.