shiny+leafletで地図上の緯度経度を取得


地図上をクリックするとleafletOutput()のoutputId_click(ここではmap_click)に緯度経度が格納される。

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)

左下に緯度経度が表示されている。

Degree Confluence Projectって知ってる?
http://confluence.org/confluence.php?lat=35&lon=135