闪亮的仪表板水平输入标签

Question

我目前正在开发一个闪亮的仪表板应用程序，其中屏幕房地产价格非常宝贵。我根据here的指导调整了自定义css，并尝试将输入标签放在输入对象旁边（而不是上面的默认值）。我已经看到了这个question，但是在我的仪表板应用程序中尝试之后它就不起作用了。

我尝试了几种不同的黑客但无济于事。不幸的是，我不是前端开发人员，即使尝试从AdminLTE网站复制示例，我也没有取得任何成功。

使用其他问题的代码，但在闪亮的仪表板中使用。

# reprex

library(shiny)
library(shinydashboard)

header <- dashboardHeader(title = "mytitle in here")

sidebar <- dashboardSidebar("some stuff")

body <- dashboardBody(
  tags$head(
    tags$style(type="text/css", "label.control-label, .selectize-control.single{ display: inline-block!important; }")
  ),
  box(width = 12,
    column(2, 
           selectInput(inputId = "input1", label = "input #1", 
                       choices = letters[1:4],  multiple = TRUE, selectize = TRUE),
           selectInput(inputId = "input2", label = "input #2", 
                       choices = letters[10:14], multiple = TRUE, selectize = TRUE)
           ),
    column(2,
           selectInput(inputId = "input3", label = "input #3", choices = c(2000:2004), selectize = TRUE),
           selectInput(inputId = "input4", label = "input #4", 
                       choices = letters[26:20], multiple = TRUE, selectize = TRUE))
  )
)

ui <- dashboardPage(header, sidebar, body, title = "my dashboard")

server <- shinyServer(function(input, output) { NULL })

shinyApp(ui, server)

使用我评论中的tag$style()，输入看起来像这样输入选择不会填充列宽的其余部分。

渴望成为 我希望能够实现的是输入看起来像这样（一致的宽度），同时在旁边标签，而不是在上面。