在Shiny中的Leaflet tile map上单击事件

Question

是否可以从平铺图中的单张/闪亮（在R中）中单击事件获取lat长？ （即不是来自任何加载的标记，多边形等）。只是为了显示我猜的位置（纬度/经度）信息。

我想可能来自this qu这是可能但没有运气。

ui <- bootstrapPage(
  tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
  leafletOutput("map", width = "100%", height = "100%")
)

server <- function(input, output,session) {

  output$map <- renderLeaflet({
    leaflet() %>% 
      addProviderTiles("CartoDB.Positron")%>%
      setView(lng = -4, lat= 52.54, zoom = 7)
  })

  #Show popup on click
  observeEvent(input$map_marker_click, {
    click <- input$map_marker_click
    text<-paste("Lattitude ", click$lat, "Longtitude ", click$lng)

    proxy <- leafletProxy("map")
    proxy %>% clearPopups() %>%
      addPopups(click$lng, click$lat, text)
  })

}

runApp(shinyApp(ui, server), launch.browser = TRUE)

最终我想在Leaflet＆amp ;;中创建栅格数据的点击标记（使用返回的纬度/经度）。闪亮，但这将是一个良好的开端（T his qu seems to have done something，但我根本无法再创造它）。