如何将闪亮的 radioGroupButtons 放入列中

Question

我想将 shinyWidgets 中的一些 radioGroupButtons() 对齐到 5 个等距的列中。我还希望所有按钮都具有相同的宽度。如果我使用 direction = "vertical"，列宽效果会好一些，但最终列之间的距离会更远。这是原样。

也许答案是隐藏的但我想不通。

library(shiny)
library(shinyWidgets)

my_css <-
  ".btn-group, .btn-group-vertical {
    column-count: 5;
  }"


ui <- 
  fluidPage(
    tags$head(tags$style(HTML(my_css))),
    radioGroupButtons(
      inputId = "somevalue1",
      label = NULL,
      choices = 
        setNames(
          1:20,
          rep(c("xs", "medium", "very long", "a whole lotta text"), 5)
        )#, direction = "vertical"
    )
  )


server <- function(input, output) {}

shinyApp(ui, server)

Answer 1

通过使用类 btn-group-toggle 和单选按钮的 CSS，您可以让所有内容具有相同的宽度。

my_css <-
  ".btn-group, .btn-group-vertical {
    column-count: 5;
  }
  
  .btn-group-toggle {
  width:200px;
  }

  .radiobtn { 
    width:200px;
  }"

如何将闪亮的 radioGroupButtons 放入列中

How to put shiny radioGroupButtons into columns

r

shiny

shinywidgets