ggmap click locator

server.R

library(shiny)
library(ggmap)

shinyServer(function(input, output) {
  
  output$chicagoPlot <- renderPlot({
    p <- qmap("chicago IL")    
    print(p)
  })
  
  output$clicks <- renderText({
    x <- input$click$x
    y <- input$click$y
    paste0("X location is: ", x, "  Y location is: ", y)
  })
  
})

ui.R

library(shiny)

shinyUI(basicPage(
  
  titlePanel("Chicago"),
  br(),
  plotOutput("chicagoPlot", width = 800, height=442, clickId="click"),
  br(),
  textOutput("clicks")
))