Css R闪亮对齐100个按钮10x10

我有下面的例子，它呈现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)
  
}

库（闪亮）
图书馆（shinyWidgets）
if（interactive（））{
ui您可以使用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);
}

网格示例：

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

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

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