DT中numericInput的垂直对齐

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(
      HTML(".vertical-numeric-input .form-group {
              display: flex;
              flex-direction: column;
            }
            .vertical-numeric-input .form-group label {
              order: 2;
            }
            .vertical-numeric-input .form-group input {
              order: 1;
              margin-bottom: 5px;
            }")
    )
  ),
  fluidRow(
    column(
      width = 3,
      class = "vertical-numeric-input",
      numericInput(inputId = "numberInput", label = "Number Input", value = 0, min = 0, max = 100, step = 1)
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui = ui, server = server)