R shiny 对齐 100 个 radioGroupButtons 10x10

Question

我有以下示例，它呈现 100 个反应式单选按钮。

library(shiny)
library(shinyWidgets)    
if (interactive()) {
  
  ui <- fluidPage(
    tags$h1("radioGroupButtons examples"),
    
    radioGroupButtons(
      individual = T, selected = "",status = "danger",
      inputId = "somevalue1",
      label = "Make a choice: ",
      choices = rep("x", 100)
    ),
    verbatimTextOutput("value1"),
  )
  server <- function(input, output) {
    
    output$value1 <- renderPrint({ input$somevalue1 })
    
  }
  shinyApp(ui, server)
  
}

我现在想排列/对齐 10 列 10 行的按钮，但我无法弄清楚我应该针对哪个 CSS class 这样做。

Answer 1

可以用CSS flexbox或者grid

Flexbox 示例：

#content {
    display: flex;
    flex-wrap: wrap;
    width: 250px;
}

#content>input {
    width: 25px;
    height: 25px;
}

网格示例：

#content {
    display: grid;
    grid-template-columns: repeat(10, 1fr);
}