shinydashboard 侧边栏中的fluidRow 交换为正文或分成两行

Question

我正在尝试将fluidRow 合并到闪亮仪表板应用程序的侧边栏中。我希望通过这样做，我可以将侧边栏的宽度分成 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 拆分复选框移动到下面的行

In 如何确保侧边栏中的fluidRow 将始终保持在侧边栏内且恰好在一行中？

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)