使 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)