在 Shiny 的 Leaflet 图块地图上单击事件

问：

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

我想也许从这个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 & Shiny 中为栅格数据（使用返回的纬度/经度）创建一个点击标记，但这将是一个好的开始（T 他的 qu 似乎做了一些事情，但我根本无法重新创建它）。