FluidRow в боковой панели Shinydashboard переходит в корпус или разделен на два ряда

Question

Я пытаюсь включить fluidRow в боковую панель приложения Shinydashboard. Я ожидаю, что таким образом я смогу разделить ширину боковой панели на 12 столбцов. Однако происходит то, что на боковой панели отображаются только 10 или 11 столбцов, в то время как оставшиеся столбцы переключаются в тело панели мониторинга или перемещаются в строку ниже. Например, код

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      fluidRow(
        column(10, textInput("TextInput", "Text")),
        column(2, checkboxInput("CheckBox", "Check?"))
     )
    )
  })
}

shinyApp(ui, server)

создает макет (с разрешением 1680 x 1050)

При использовании разделения 11-1 флажок перемещается в строку ниже

Как можно гарантировать, что liquidRow в боковой панели всегда будет оставаться внутри боковой панели и ровно в одном ряду?

Answer 1

Будет ли это делать?

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      fluidRow(
      div(style="display: inline-block; width: 62%;",textInput("TextInput", "Text")),
      div(style="display: inline-block; width: 4%;",checkboxInput("CheckBox", "Check?")))
    )
  })
}

shinyApp(ui, server)