shiny+leaflet으로 지도에서 위도 경도 가져오기

library(shiny)
library(leaflet)

rm(list=ls())

lng <- 135
lat <- 35

ui <- fillPage(
  leafletOutput(outputId="map", height="100%"),
  absolutePanel(bottom=10, left=10,
    tableOutput(outputId="table")
  )
)

server <- function(input, output, session){
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      setView(lng=lng, lat=lat, zoom=15)
  })

  observeEvent(input$map_click, {
    output$table <- renderTable({
      as.data.frame(input$map_click)
    })
  })
}

shinyApp(ui=ui, server=server)