リーフレットのコーディネートコントロールin R

Question

私はRStudioのリーフレットで働いています。さて、私はマウスカーソルをキャプチャし、地図上の座標を取得したいと思います。何かのようなthis。

Rのリーフレットにそのコードを適用する方法を知っていますか？

Answer 1

あなたは光沢のあるライブラリを追加したい場合は、マップはマップの名前である入力の$ map_clickを、使用することができます。：

library(shiny) 
library(leaflet) 

shinyApp(
    ui = fluidPage(
    leafletMap(
    "map", "100%", 400, 
    initialTileLayer = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png", 
    initialTileLayerAttribution = HTML('Maps by <a href="http://www.mapbox.com/">Mapbox</a>'), 
    options=list(
     center = c(37.45, -93.85), 
     zoom = 4, 
     maxBounds = list(list(17, -180), list(59, 180))))), 

server = function(input, output, session){ 
    map = createLeafletMap(session, 'map') 

    observe({ 
     click<-input$map_click 
     if(is.null(click)) 
    return() 
     text<-paste("Lattitude ", click$lat, "Longtitude ", click$lng) 
     map$showPopup(click$lat, click$lng, text) 
    }) 
    } 
)