Update server.R

Switch to renderChart2