leaflet shiny

server.R

library("leaflet")

server <- function(input, output) {
  output$map <- renderLeaflet({    
    leaflet() %>%
      setView(lat=41.88043, lng=-87.63609, zoom=18) %>% 
      addTiles()
  })
  
  observeEvent(input$map_click, {
    p <- input$map_click
    output$Click_text <- renderText(unlist(p))    
  })   
}

ui.R

ui <- fluidPage(
  fluidRow(          
           leafletOutput("map")                      
  ),
  fluidRow(
    column(width = 3,
           verbatimTextOutput("Click_text")           
    )
  )
)