Как выровнять группы входов в 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 или что-то еще?Большое спасибо заранее!