如何在 R Shiny 的 Highcharter 库中将点击事件附加到 hcmap 函数？

Question

我用来绘制地图的代码的 sn-p 如下所示，我也尝试使用 'hc_add_event_point' 函数，但无济于事

base <- hcmap(
      map = 'custom/world',
      download_map_data = TRUE,
      data = df_map_dat,
      value = "Population",
      name = "Population",
      joinBy = c("iso-a3", "iso_3"),
      allAreas = TRUE
    ) %>%
      hc_add_event_point(event='click')

然后我尝试使用以下方法检索点击信息：

shiny::observeEvent(input$gmap1_click,{
                      print (input$map1_click)})

其中 map1 是输出地图的名称。

提前致谢

Answer 1

我认为可以使用 Highcharts API 提供的 events.click 创建它：https://api.highcharts.com/highmaps/series.map.events.click

您可以在此处找到一篇文章，展示如何在 R 中使用 Highcharts JavaScript 语法：https://www.highcharts.com/blog/tutorials/working-with-highcharts-javascript-syntax-in-r/?fbclid=IwAR39-dztCuBUrncLQHEo9yNin00lRZfSqKY1JqAdvMU7KkokZGfTfj5DYB4