如何在ShinyApp中对齐输入组？

Question

我想在我的闪亮应用程序中进行几组输入。 您可以运行此代码，您将立即了解让我感到担忧的地方。

短时间：输入框靠在输入标签附近，因此，当标签的长度不同时-它看起来很脏。

library(shiny)

ui <- fluidPage(
    tags$head(
        tags$style(type="text/css", ".inline label{ display: table-cell; text-align: left; vertical-align: middle; } 
                   .inline .form-group{display: table-row;}")
    ),
    uiOutput("out")
)

server <- function(input, output){
    num <- 1:5

    show <- function(i){
        tagList(
            div(numericInput(i, paste(c(1:i), collapse = ""), value = 0),
                style = "display: inline-block;vertical-align:top;"),
            div(selectInput(paste("text", i), "", choices = c("min", "max")),
                style = "display: inline-block;vertical-align:top;"),
            br()
        )
    }

    output$out <- renderUI({
        tags$div(class = "inline", 
                 lapply(num, function (i) {
                     show(i)
                 })
        )
    })
}

shinyApp(ui = ui, server = server)

也许您知道一些不可思议的CSS类？ 提前非常感谢！