在Shiny中添加一个图标到selectInput

tags$head(
  tags$style(HTML("
    .my-icon {
      /* 设置图标样式 */
      font-size: 20px; /* 设置图标大小 */
      margin-right: 5px; /* 设置图标与文字之间的间距 */
    }
  "))
)

selectInput(
  inputId = "mySelect",
  label = "选择一个选项：",
  choices = c("选项1", "选项2", "选项3"),
  selected = "选项1",
  multiple = FALSE,
  selectize = TRUE,
  width = "300px",
  selectizeOptions = list(
    options = list(
      templates = list(
        option = HTML("<span class='my-icon'><i class='fa fa-flag'></i></span> %s"),
        /* 或者自定义图标 */
        /* option = HTML("<span class='my-icon'><img src='path/to/icon.png' alt='' /></span> %s") */
      )
    )
  )
)