# Fill in the spot we created for a plotoutput$phonePlot <-renderPlot({# Render a barplot})
# Fill in the spot we created for a plotoutput$phonePlot <-renderPlot({# Render a barplotbarplot(WorldPhones[,input$region]*1000, main=input$region,ylab="Number of Telephones",xlab="Year")})
# Fill in the spot we created for a plot output $ phonePlot <- renderPlot ({ # Render a barplot })