Question

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

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

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版本中改变：）

R Googleway：观察Shiny中的点击圈子事件

1 个答案: