如何在shiny中循环observeEvent？单击多边形时更改单页中的样式的步骤

install.packages("shiny")

library(shiny)

# UI界面
ui <- fluidPage(
  # 创建多边形和单页的样式
  tags$div(
    id = "polygon",
    style = "width: 100px; height: 100px; background-color: red;"
  )
)

# 服务器逻辑
server <- function(input, output, session) {
  # 循环创建observeEvent函数，监听多个多边形的点击事件
  for (i in 1:3) {
    observeEvent(input[[paste0("polygon", i)]], {
      # 在触发事件时，执行相应的代码块来更改单页中的样式
      shinyjs::runjs("$('#polygon').css('background-color', 'blue');")
    })
  }
}

# 运行shiny应用程序
shinyApp(ui, server)