使用javascript更改R闪亮中selectinput的背景颜色

Question

我有一个简单的闪亮应用程序，我想在其中使用 javascript 将我的 selectInput() 的背景颜色从白色更改为橙色。是否可以？我应该把callback论点放在哪里？#ui.rlibrary(shiny)ui <- fluidPage(  theme=shinytheme("slate") ,  # App title ----  titlePanel(uiOutput("title")),  #This hides the temporary warning messages while the plots are being created  tags$style(type="text/css",             ".shiny-output-error { visibility: hidden; }",             ".shiny-output-error:before { visibility: hidden; }"  ),  # Sidebar layout with input and output definitions ----  sidebarLayout(    uiOutput("menu"),    # Main panel for displaying outputs ----    mainPanel(    )  ))#server.rserver = function(input, output) {  output$menu<-renderUI({    sidebarPanel(width = 2,                 selectInput("sel","",                             choices = c("Home","About","Sector A","Sector B","Sector C"),                             selected = "Home"),                 tags$style(                   "select#sel {background: #FFA500}"                 )    )  })}

Answer 1

如果你把它应该工作selectize = FALSE。

默认情况下，selectInput有selectize = TRUE它使用selectize.js。

因此，如果您按原样运行代码，那么您应该会看到您的选择显示为 display: none

所以你output$menu会像

  output$menu<-renderUI({

    sidebarPanel(width = 2,

                 selectInput("sel","",

                             choices = c("Home","About","Sector A","Sector B","Sector C"),

                             selected = "Home", selectize = FALSE),

                 tags$style(

                   "select#sel {background: #FFA500}"

                 )

    )

  })

Answer 2

根据您编辑的问题，您可能会在周围使用 div 容器 selectInput

div(

 selectInput("sel","",

   choices = c("Home","About","Sector A","Sector B","Sector C"),

   selected = "Home"),

 style = "background: #FFA500"

)

或者，如果您想设置整个侧边栏面板的样式，请设置样式 form.well

sidebarPanel(

  width = 2,

  selectInput(

    "sel","",

    choices = c("Home","About","Sector A","Sector B","Sector C"),

    selected = "Home"),

  tags$style(

    "form.well {background: #FFA500}"

  )

)