考虑以下应用：

library(shiny)
library(shinydashboard)
library(tidyverse)

ui <-  dashboardPage(
        dashboardheader(),dashboardSidebar(),dashboardBody(
           fluidRow(box(numericInput("number","Number of inputs",10,1,50))),fluidRow(box(width = 12,uiOutput("SELECTS")))    
))

server <- function(input,output) {

    output$SELECTS <-  renderUI({
       sel_list <- map(seq(input$number),~ {
            selectInput(paste0("select_",.x),label = .x,choices = seq(.x))
        })   
    })
}

shinyApp(ui = ui,server = server)

我想插入一个自动换行符，以将selectInputs安排在例如两四列。 对于10个这样的输入，可以采用非常硬编码的方式进行：

server <- function(input,output) {

output$SELECTS <-  renderUI({
   sel_list <- map(seq(input$number),~ {
        selectInput(paste0("select_",choices = seq(.x))
    })

   fluidRow(column(width = 6,sel_list[1:5]),column(width = 6,sel_list[6:10]))
})
}

但是必须有一种更优雅的方法来自动将输入数量分为一，二，三或四列。