Как обернуть вывод checkboxGroupInput?

Question

Как изменить следующий код, чтобы параметры 'checkboxGroupInput' переносились в 'width: 200px'?

library(shiny)

ui <- fluidPage(
  tags$style("
      .custom-wrap {
        display: flex;
        flex-flow: wrap;
        flex-direction: column;
        width: 200px;
      }
      "
  ),
  div(class = "custom-wrap",checkboxGroupInput("variable", "Variables to show:",
                                    c("Cylinders" = "cyl",
                                      "Transmission" = "am",
                                      "Gears" = "gear")))
)

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

}

shinyApp(ui, server)

Answer 1

Если вы хотите выбрать все дочерние элементы checkboxGroupInput, используйте этот селектор #variable *:

library(shiny)

ui <- fluidPage(
  tags$style("
      #variable * {
        display: flex;
        flex-flow: wrap;
        flex-direction: column;
        width: 200px;
      }
      "
  ),
  checkboxGroupInput("variable", "Variables to show:",
                     c("Cylinders" = "cyl",
                       "Transmission" = "am",
                       "Gears" = "gear")))

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

}

shinyApp(ui, server)