使 checkboxInput 与 R Shiny 中 inputSlider 的外观相匹配

Question

在下面的示例中，如何让“输入二”与“输入一​​”的外观相匹配，以加粗字体并将标签放在复选框上方？

我想答案是某种 css 魔法，但不知道如何处理它。

ui <- fluidPage(
  fluidRow(
    column(3,
           sliderInput(inputId = "foo",label="Input one",min = 0,max = 100,value = 50,step = 10)
    ),
    column(3,
           checkboxInput(inputId = "bar",label="Input two")
    )
  )
)
)

server <- function(input, output, session) {}

shinyApp(ui, server)

Answer 1

一种简单的解决方案可能是：

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(3,
           sliderInput(inputId = "foo",label="Input one",min = 0,max = 100,value = 50,step = 10)
    ),
    column(3,
           p(strong("Input two")),
           checkboxInput(inputId = "bar",label=NULL)
    )
  )
)


server <- function(input, output, session) {}

shinyApp(ui, server)