R Shiny display checkboxGroupInput горизонтально

Ответ 1

Вы можете сделать следующее:

checkboxGroupInput(inputId="test", label="Test", choices=1:4),
tags$style(type="text/css", HTML("#test>*{float: left; margin-right: 15px; height: 20px;} #test {height: 20px;}"))

Или непосредственно отредактируйте файл css, см. https://groups.google.com/forum/#!topic/shiny-discuss/EMQV8NbA3MI

ИЗМЕНИТЬ

Так как shiny 0.10.0, вы можете использовать аргумент inline для горизонтальной компоновки:

library("shiny")
ui <- fluidPage(
  checkboxGroupInput(inputId="test", label="Test", choices=1:4, inline = TRUE)
)
server <- function(input, output) {

}
shinyApp(ui = ui, server = server)