Leaflet Coordinate Control in R

Question

Ich arbeite mit Leaflet in RStudio. Jetzt möchte ich den Mausklick erfassen und seine Koordinaten auf einer Karte abrufen. So etwas wie this.

Wissen Sie, wie Sie diesen Code für Flugblätter in R anpassen können?

Answer 1

Wenn Sie die Shiny Bibliothek hinzufügen möchten Sie Eingabe $ map_click verwenden können, wo Karte der Name Ihrer Karte ist .:

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) 
    }) 
    } 
)