如何将单击事件附加到R shiny内的Highcharter库中的hcmap函数？

install.packages("shiny")
install.packages("highcharter")

library(shiny)
library(highcharter)

ui <- fluidPage(
  highchartOutput("map")
)

server <- function(input, output) {
  output$map <- renderHighchart({
    hcmap("countries/us/us-all")
  })
}

server <- function(input, output) {
  output$map <- renderHighchart({
    hcmap("countries/us/us-all")
  })
  
  observeEvent(input$map_click, {
    # 在这里编写单击事件的处理代码
    # 可以使用input$map_click$x和input$map_click$y获取单击事件的坐标
    # 可以使用input$map_click$point$id获取单击事件发生的地图区域的ID
    
    # 示例：在控制台打印单击事件的坐标和地图区域的ID
    cat("Clicked at (", input$map_click$x, ", ", input$map_click$y, ")\n")
    cat("Clicked region ID: ", input$map_click$point$id, "\n")
  })
}