r - R googleway：在 Shiny 中观察点击圈事件

Question

如何在 R Shiny 中使用 googleway 地图捕捉圆圈点击事件？

这是我的代码 - 基于googleway 小插图- 但是观察者不会触发。

library(tidyverse)
library(shiny)
library(googleway)

ui <- fluidPage(
  google_mapOutput(outputId = "map")
)

server <- function(input, output){

  map_key <- ''

  output$map <- renderGoogle_map({

    google_map(key = map_key) %>%
      add_circles(data = tram_stops, id = "stop_id", lat = "stop_lat", lon = "stop_lon"
                   )
  })

  observeEvent(input$map_circle_click, {
    cat(input$map_circle_click$id) # doesn't fire!
  })

}

shinyApp(ui, server)

具有多边形的类似代码有效。

Answer 1

根据 SymbolixAU 评论

  observeEvent(input$map_shape_click, {
    cat(input$map_shape_click$id) # this works!
  })

我怀疑这可能会在未来版本的 googleway 中改变:)