Drawplot() for sample R Shiny server code