在shiny中对齐textInputs的变量编号

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(
      HTML("
        .input-group {
          display: flex;
          flex-direction: row;
          align-items: center;
        }
        
        .input-group .label {
          width: 50px;
        }
        
        .input-group .input {
          flex: 1;
        }
      ")
    )
  ),
  
  fluidRow(
    column(width = 6,
           div(class = "input-group",
               tags$label(class = "label", "Variable 1:"),
               textInput(inputId = "var1", label = NULL, value = "")
           )
    ),
    
    column(width = 6,
           div(class = "input-group",
               tags$label(class = "label", "Variable 2:"),
               textInput(inputId = "var2", label = NULL, value = "")
           )
    )
  )
)

server <- function(input, output) {
  
}

shinyApp(ui = ui, server = server)