Update server.R as part of Shiny app