问如何在R Shiny中修改select input中多个选定值的显示

EN

.selectize-control.multi .selectize-input > div {
        background: #d8544c;
        color: #fdfdfd;
}

library(shiny)

ui <- fluidPage(
    tags$head(
        tags$style(HTML("
        
      .selectize-control.multi .selectize-input > div {
        background: #d8544c;
        color: #fdfdfd;
}

    "))
    ),
    sidebarLayout(
        sidebarPanel(
            selectInput("select1",
                        "Choices:",
                        choices = names(mtcars), multiple = TRUE)
        ),
    mainPanel(
        verbatimTextOutput("out")
        )
    )
)

server <- function(input, output) {
    output$out <- renderPrint({
      input$select1
    })
}

shinyApp(ui = ui, server = server)