在R传单中标记鼠标点击事件，以获得光泽

如何在R中的传单地图中的标记上接收鼠标单击事件？我用的是RStudio/传单，正在浏览

---

我想得到一个标记的值（例如，ID），并用它来更新一个侧边栏面板

要使用

input$MAPID\u marker\u单击

。请参见下面的示例

library(shiny)
library(leaflet)

latitude <- c(35.94077, 35.83770, 35.84545, 35.81584, 35.79387, 36.05600)
longitude <- c(-78.58010, -78.78084, -78.72444, -78.62568, -78.64262, -78.67600)
radius<-c(15, 12, 12, 12, 12, 15)
ids<-c("a", "b", "c", "d", "e", "f")

shinyApp(
  ui = fluidPage(
    fluidRow(
      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))))),
    fluidRow(verbatimTextOutput("Click_text"))),
  server = function(input, output, session){
        map = createLeafletMap(session, 'map')
        session$onFlushed(once=T, function(){

          map$addCircleMarker(lat = latitude, 
                              lng = longitude, 
                              radius = radius, 
                              layerId=ids)
        })        

        observe({
          click<-input$map_marker_click
          if(is.null(click))
            return()
          text<-paste("Lattitude ", click$lat, "Longtitude ", click$lng)
          text2<-paste("You've selected point ", click$id)
          map$clearPopups()
          map$showPopup( click$lat, click$lng, text)
          output$Click_text<-renderText({
            text2
          })

        })

  }
)

库（闪亮）
图书馆（单张）
纬度对于具有不同层ID的多个圆圈标记（例如，在上面，仅添加了一个圆圈市场），如何执行此操作