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

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

我试过几种不同的方法，但都没有用。不幸的是，我不是前端开发人员，即使尝试从AdminLTE网站复制示例，我也没有取得任何成功

Reprex使用另一个问题中的代码，但在一个闪亮的仪表板中

# 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)

#reprex
图书馆（闪亮）
图书馆（shinydashboard）
header我刚刚用闪亮的1.0.0尝试了答案，效果很好。盒子的大小很糟糕，但它确实把标签放在了输入旁边。在我的设置中，Win7上的闪亮1.0.0和R3.3.2不起作用。。。情不自禁，sorry@HubertL我也看到了这个问题（），它可以在我的windows系统上运行（与您的环境类似），不过如果我没记错的话，当我尝试它时，输入框会急剧缩小。这个问题在我的系统上确实可以运行，但正如您所注意到的，结果不是很好。当您使用一个标记$样式时，它在您的仪表板上运行吗？