如何在Shiny中将消息发送到highcharter以选择一个点

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

library(shiny)
library(highcharter)

ui <- fluidPage(
  titlePanel("在Shiny中发送消息到highcharter"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入元素，用于发送消息
      textInput("message", "输入消息：", value = ""),
      actionButton("send", "发送消息")
    ),
    mainPanel(
      # 添加高亮图表的输出元素
      highchartOutput("chart")
    )
  )
)

server <- function(input, output) {
  # 创建一个空的高亮图表
  output$chart <- renderHighchart({
    highchart() %>%
      hc_chart(type = "scatter") %>%
      hc_title(text = "高亮图表")
  })
  
  # 监听发送按钮的点击事件
  observeEvent(input$send, {
    # 获取输入的消息
    message <- input$message
    
    # 更新高亮图表，添加一个点
    output$chart <- renderHighchart({
      chart <- highchart() %>%
        hc_chart(type = "scatter") %>%
        hc_title(text = "高亮图表")
      
      if (!is.null(message)) {
        # 解析消息，获取点的坐标
        coords <- strsplit(message, ",")[[1]]
        x <- as.numeric(coords[1])
        y <- as.numeric(coords[2])
        
        # 添加一个点到图表
        chart <- chart %>%
          hc_add_series(data = list(x, y), type = "scatter", name = "选择的点")
      }
      
      chart
    })
  })
}

shinyApp(ui, server)