在leaflet/shiny中选择和取消选择多边形时，有没有办法更改样式两次(双击和三次单击)？

library(leaflet)
library(shiny)

# 创建Leaflet地图
map <- leaflet() %>%
  addTiles() %>%
  setView(lng = 0, lat = 0, zoom = 2)

# 创建多边形图层
polygon <- leaflet::addPolygons(
  map = map,
  lng = c(-10, 10, 10, -10),
  lat = c(-10, -10, 10, 10)
)

# Shiny应用程序
shinyApp(
  ui = fluidPage(
    leafletOutput("mapOutput")
  ),

  server = function(input, output, session) {
    output$mapOutput <- renderLeaflet({
      map
    })

    # 双击事件
    observeEvent(input$mapOutput_shape_dblclick, {
      # 获取多边形ID
      shape_id <- input$mapOutput_shape_dblclick$id
      
      # 根据ID找到多边形图层并更改样式
      leaflet::leafletProxy("mapOutput") %>%
        leaflet::addIdMarker(
          id = shape_id,
          lat = 0,
          lng = 0,
          label = paste("Double Clicked Shape ID:", shape_id),
          popup = "Double Clicked!",
          icon = leaflet::makeIcon(
            iconUrl = "http://leafletjs.com/examples/custom-icons/leaf-green.png",
            iconSize = c(38, 95),
            iconAnchor = c(22, 94),
            popupAnchor = c(-3, -76),
            shadowUrl = "http://leafletjs.com/examples/custom-icons/leaf-shadow.png",
            shadowSize = c(50, 64),
            shadowAnchor = c(4, 62)
          )
        )
    })

    # 单击事件
    click_count <- reactiveValues(count = 0)
    
    observeEvent(input$mapOutput_shape_click, {
      click_count$count <- click_count$count + 1
      
      if (click_count$count == 2) {
        # 获取多边形ID
        shape_id <- input$mapOutput_shape_click$id

        # 根据ID找到多边形图层并更改样式
        leaflet::leafletProxy("mapOutput") %>%
          leaflet::removeMarker(shape_id)  # 移除之前双击添加的标记

        leaflet::leafletProxy("mapOutput") %>%
          leaflet::addCircleMarker(
            lat = 0,
            lng = 0,
            radius = 10,
            color = "red",
            popup = "Double Clicked!"
          )
        
      } else if (click_count$count == 3) {
        # 获取多边形ID
        shape_id <- input$mapOutput_shape_click$id

        # 根据ID找到多边形图层并更改样式
        leaflet::leafletProxy("mapOutput") %>%
          leaflet::removeMarker(shape_id)  # 移除之前双击添加的标记

        leaflet::leafletProxy("mapOutput") %>%
          leaflet::addCircleMarker(
            lat = 0,
            lng = 0,
            radius = 10,
            color = "blue",
            popup = "Triple Clicked!"
          )
        
        click_count$count <- 0  # 重置计数器
      }
    })
  }
)