R googleway:观察闪亮中的点击圈事件

Question

如何在 R Shiny 中使用谷歌路径地图捕捉圆圈点击事件？

这是我的代码 - 基于 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 :)中发生变化