更改selectinput

Question

我正在尝试将特定selectInput默认颜色灰色的边框颜色更改为红色。在检查HTML之后，我找到了控制边框颜色的css参数。然后我使用了以下代码中显示的HTML标记，并且能够成功更改selectInput的边框颜色。问题是我想仅为第一个选择输入更改颜色，即Select1而不是Select2。是否可以仅更改一个特定selectinput的边框颜色？

 library(shiny)

  ui <- fluidPage(

    tags$head(tags$style(HTML( ".selectize-input {border: 1px solid #dd4b39;}"))),

    selectInput("Select1", "Option1", choices = NULL),

    selectInput("Select2", "Option2", choices = NULL)
  )


  server <- function(input, output){

  }

  shinyApp(ui = ui, server = server)