Question

我在RStudio中使用Leaflet。现在，我想捕捉鼠标点击并在地图上获取其坐标。类似于this。

你知道如何在R？

中修改传单的代码

Answer 1

如果您想添加Shiny库，可以使用input $ map_click，其中map是地图的名称。

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

R中的小叶坐标控制

1 个答案: