R 更改selectinput的边框颜色

我正在尝试将特定

selectInput

默认颜色灰色更改为红色。在检查HTML之后，我找到了控制边框颜色的css参数。然后我使用了下面代码中显示的HTML标记，并且能够成功地更改

selectInput

的边框颜色。问题是我只想更改第一次选择输入的颜色，即

Select1

，而不是

Select2

。是否可以只更改一个特定的

选择Input

 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) 

库（闪亮）
ui try
tags$head（tags$style（“#Select1{border:1px solid#dd4b39；}”），
@Smich7，感谢您的回复。我早就试过了。我不工作：（这很奇怪，我刚刚编辑过，你是否尝试删除
HTML
？是的。我已经删除了HTML，它仍然不工作。在搜索了一些之后，我找到了链接。使用链接
标签$head（标签$style（HTML（#Select1~.selectize-control.single.selectize输入{border:1px solid#dd4b39；}）中建议的答案），
似乎有效。请尝试
标记$head（标记$style（“#Select1{border:1px solid#dd4b39；}”），
@Smich7，感谢您的回复。之前已经尝试过了。我不起作用：（这很奇怪，我刚刚编辑过，你是否尝试删除
HTML
？是的。我删除了HTML，它仍然不起作用。在搜索了更多内容后，我找到了链接。使用链接
tags$head（tags$style（HTML（#Select1~.selectize-control.single.selectize输入{border:1px solid#dd4b39；}）中建议的答案），
似乎有效。