更改Shiny下拉标题的字体颜色（selectInput）

dbo 发表于 Dev

dbo

我看过几篇有关更改实际下拉项的颜色以供选择的文章，许多文章似乎都需要冗长的CSS调用和文件。如果我们想要的唯一格式更改是更改某些下拉标题或部分下拉标题的字体颜色，例如Select Breakfast，或仅Breakfast更改为紫色，该怎么办？

server <- function(input, output) {
    output$distPlot <- renderPlot({
        hist(rnorm(input$user_choice1))
    })
}

ui <- fluidPage(

column( width = 5,
selectInput("user_choice1",
"Select Breakfast",
choices = c("good", "better", "amazing"), selected = "amazing") ) ,
column( width = 5,
selectInput("user_choice2",
"Select Dinner",
choices = c("bad", "mediocre", "ok"), selected = "ok")  ,


mainPanel(plotOutput("distPlot"))))

shinyApp(ui = ui, server = server)

炉

如果您需要对标签中的单个单词进行更改，那么最简单的方法就是传递一个原始的html字符串来完成您想要的操作。请注意，它仍然会继承label

library(shiny)
server <- function(input, output) {

}

ui <- fluidPage(

  column( width = 5,
          selectInput("user_choice1",
                      shiny::HTML("<p>Select <span style='color: purple'>Breakfast</span></p>"),
                      choices = c("good", "better", "amazing"), selected = "amazing") ) ,
  column( width = 5,
          selectInput("user_choice2",
                      "Select Dinner",
                      choices = c("bad", "mediocre", "ok"), selected = "ok")  ,


          mainPanel(plotOutput("distPlot"))))

shinyApp(ui = ui, server = server)

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。