Question

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

server <- function(input, output) {}

我想要＆＃34;普通＆＃34;的字体颜色和＆＃34;制服＆＃34;与其他选择不同。让我们说前两个选项的颜色应该是红色。

任何可以实现这一目标的人？

Answer 1

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

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

choiceNames定义了你的无线电按钮的ui。您可以使用HTML代码（tags$strong，tags$code，...和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(...) {}
)

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

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

1 个答案: