在shiny中选择单选按钮时重置plotly event_data

library(shiny)
library(plotly)

ui <- fluidPage(
  titlePanel("Reset Plotly event_data"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("option", "选择一个选项:",
                   choices = c("选项1", "选项2", "选项3"),
                   selected = "选项1")
    ),
    mainPanel(
      plotlyOutput("plot")
    )
  )
)

server <- function(input, output) {
  
  observeEvent(input$option, {
    # 重置Plotly event_data
    event_data("plotly_click", source = "plot") <- NULL
  })
  
  output$plot <- renderPlotly({
    # 创建一个简单的Plotly图表
    plot_ly(data = iris, x = ~Sepal.Length, y = ~Sepal.Width, color = ~Species) %>%
      layout(clickmode = "event")
  })
}

shinyApp(ui, server)