r语言 - 如何指定不同的单选按钮与不同的风格在闪亮?

Question

我试图开发一个闪亮的应用程序，包含几个面板，每个面板有一些单选按钮。我目前的问题是:当我尝试指定一个特定的单选按钮的样式像下面的代码，CSS自动应用到整个应用程序中的其他单选按钮。

fluidRow(column(12, align='center',h4(tags$style(HTML(".radio-inline {margin-right: 200px;}"))), 
radioButtons("MPL1",label="",choiceNames=c("(60, 0; 12, 1)","(56, 0; 48, 1)"),
choiceValues=c(0,1),selected= character(0),inline=T))),

有些人提到我需要使用#inputID，但是这个技巧不适合我的情况。之后我替换了"。radio-inline"使用"#MPL1"表示代码无效(应用程序可以打开，但按钮是默认样式)。

fluidRow(column(12, align='center',h4(tags$style(HTML("#MPL1 {margin-right: 200px;}"))), 
radioButtons("MPL1",label="",choiceNames=c("(60, 0; 12, 1)","(56, 0; 48, 1)"),
choiceValues=c(0,1),selected= character(0),inline=T))),

你能告诉我我哪里出错了吗?欢迎任何帮助。非常感谢!

吴

Answer 1

可以在div()中指定一个class。这将影响所有使用class定义的项。

试试这个

ui <- fluidPage(
fluidRow(column(12, align='center', 
div(class="MPL", radioButtons("MPL1",label="",choiceNames=c("(60, 0; 12, 1)","(56, 0; 48, 1)"),
choiceValues=c(0,1),selected= character(0),inline=T)))),
fluidRow(column(12, align='center', h4(tags$style(HTML(".radio-inline {margin-right: 100px;}"))),
radioButtons("MPL2",label="",choiceNames=c("(61, 0; 12, 1)","(55, 0; 48, 1)"),
choiceValues=c(0,1),selected= character(0),inline=T))),
fluidRow(column(12, align='center',h4(tags$style(HTML(".MPL .radio-inline {margin-right: 300px;}"))),
div(class="MPL", radioButtons("MPL3",label="",choiceNames=c("(62, 0; 12, 1)","(54, 0; 48, 1)"),
choiceValues=c(0,1),selected= character(0),inline=T)) ) ),
fluidRow(column(12, align='center',
radioButtons("MPL4",label="",choiceNames=c("(63, 0; 12, 1)","(53, 0; 48, 1)"),
choiceValues=c(0,1),selected= character(0),inline=T)))
)
server <- function(input, output, session) {}
shinyApp(ui = ui, server = server)