Горизонтальные метки ввода Shiny Dashboard

В настоящее время я разрабатываю блестящее приложение для панели инструментов, где экранная недвижимость в большом почете. Я скорректировал пользовательский 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)

Использование tag$style() из моего комментария приводит к тому, что входные данные выглядят так, где выбор входных данных не заполняет остальную ширину столбца. введите здесь описание изображения

ЖЕЛАЕМЫЙ РЕЗУЛЬТАТ Чего я надеюсь достичь, так это иметь входные данные, которые выглядят так (постоянной ширины), а метки расположены рядом, а не сверху.

введите здесь описание изображения


person Dan    schedule 25.01.2017    source источник
comment
Я только что попробовал ответить с помощью shiny 1.0.0, и это сработало нормально. Размеры полей ужасны, но они помещают метки рядом с вводом.   -  person Dan    schedule 25.01.2017
comment
Это не работает на моей установке с блестящей 1.0.0 и R 3.3.2 на Win 7... Не могу помочь, извините   -  person HubertL    schedule 25.01.2017
comment
@HubertL Я также видел этот вопрос (stackoverflow .com/questions/33960035/), и он работает в моей системе Windows (аналогично вашей среде), хотя, если я правильно помню, когда пробовал, поля ввода резко уменьшались.   -  person Dan    schedule 27.01.2017
comment
Этот работает на моей системе, но, как вы заметили, результат невелик.   -  person HubertL    schedule 27.01.2017
comment
работает ли это на вашей панели инструментов, когда вы используете этот стиль тега $?   -  person HubertL    schedule 27.01.2017
comment
На моем Mac вопрос в большинстве случаев аналогичен результатам вопросов и ответов в комментариях. Я отредактировал вопрос, чтобы показать, как обстоят дела с результатами tag$style() из вопросов и ответов в комментариях.   -  person Dan    schedule 27.01.2017
comment
Я не понимаю, в чем проблема, пожалуйста, уточните, что вы ожидаете   -  person HubertL    schedule 27.01.2017