shiny - R Shiny radioButtons 如何改变一些选择的颜色？

Question

ui <- fluidPage(
         radioButtons("dist", "Distribution type:",
                       c("Normal" = "norm",
                        "Uniform" = "unif",
                        "Log-normal" = "lnorm",
                        "Exponential" = "exp")))

server <- function(input, output) {}

我希望“Normal”和“Uniform”的字体颜色与其他选项的字体颜色不同。假设前两个选择的颜色应该是红色。

谁能做到这一点？

Answer 1

看看?radioButtons中的例子。这将为您提供有关如何将 HTML 标记应用于选择的说明。

总而言之，您必须使用参数 choiceNames 和 choiceValues。

• choiceNames 定义单选按钮的用户界面。您可以使用 HTML 标签(tags$strong, tags$code, ... and HTML("some html string") )
• choiceValues 是服务器将通过 input$dist 接收的值。

这是一个例子:

library(shiny)

shinyApp(
  fluidPage(
    radioButtons(
      inputId = "dist",
      label = "Distribution type:",
      choiceNames = list(
        HTML("<font color='red'>Normal</font>"), 
        tags$span(style = "color:red", "Uniform"), 
        "Log-normal", "Exponential"
      ),
      choiceValues = c("norm", "unif", "lnorm", "exp")
    )
  ),
  server = function(...) {}
)

此外，如果您需要有关 radioButton 样式的灵感，请查看 shinyWidgets::shinyWidgetsGallery()。