Ändern Sie die Rahmenfarbe des Selectinput von der Serverseite

Question

Dies ist eine Nachfolgefrage zu this Frage. In der vorherigen Frage wurde die Grenze von selectInput von der u-Seite unter Verwendung des folgenden Arguments tags$head(tags$style(HTML("#Select1 ~ .selectize-control.single .selectize-input {border: 1px solid #dd4b39;}"))) geändert. Jetzt möchte ich die Rahmenfarbe einer bestimmten Auswahlausgabe von der Serverseite ändern. Mein Hauptziel ist es tatsächlich, die Farbe basierend auf verschiedenen Bedingungen zu ändern. Um die Farbe von der Serverseite zu ändern, habe ich den folgenden Code ausprobiert, aber es scheint nicht zu funktionieren. Gibt es einen Weg, dies zu erreichen? Hier

ist der Code, den ich versucht:

library(shiny) 

    ui <- fluidPage(

    tags$head(tags$style(htmlOutput("Border_Arg"))), 

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

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


    server <- function(input, output){ 
    output$Border_Arg <- renderUI({"#Select1 ~ .selectize-control.single .selectize-input {border: 1px solid #dd4b39;}"}) 
    } 

    shinyApp(ui = ui, server = server) 

Answer 1

Sie nah waren.

Lauf Beispiel unten finden:

library(shiny) 
ui <- fluidPage(
    selectInput("Select1", "Option1", choices = NULL), 
    selectInput("Select2", "Option2", choices = NULL), 
    uiOutput("Border_Arg") 
) 


server <- function(input, output){ 
    output$Border_Arg <- renderUI({ 
    tags$head(tags$style(HTML("#Select1 ~ .selectize-control.single .selectize-input {border: 1px solid #dd4b39;}"))) 
    }) 
} 

shinyApp(ui = ui, server = server)