如何在Shiny中更改搜索按钮？

ui <- fluidPage(
  tags$style(HTML("
    .my-search-button {
      /* 自定义样式 */
    }
  ")),
  
  # 其他UI组件
)

ui <- fluidPage(
  tags$style(HTML("
    .my-search-button {
      /* 自定义样式 */
    }
  ")),
  
  actionButton("searchButton", "搜索", class = "my-search-button"),
  
  # 其他UI组件
)

ui <- fluidPage(
  tags$style(HTML("
    .my-search-button {
      background-color: #007bff;
      color: #fff;
      border: none;
      padding: 10px 20px;
      font-size: 16px;
      /* 其他样式属性 */
    }
  ")),
  
  actionButton("searchButton", "搜索", class = "my-search-button"),
  
  # 其他UI组件
)

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  
  tags$style(HTML("
    .my-search-button {
      background-color: #007bff;
      color: #fff;
      border: none;
      padding: 10px 20px;
      font-size: 16px;
      /* 其他样式属性 */
    }
  ")),
  
  actionButton("searchButton", "搜索", class = "my-search-button"),
  
  # 其他UI组件
)

server <- function(input, output) {
  observeEvent(input$searchButton, {
    # 执行自定义的JavaScript代码
    shinyjs::runjs("
      // 自定义的JavaScript代码
    ")
  })
}

shinyApp(ui, server)