# Fill in the spot we created for a plot
output$phonePlot <- renderPlot({
  # Render a barplot
})
# Fill in the spot we created for a plot output $ phonePlot <- renderPlot ({ # Render a barplot })