shiny - shinydashboard 侧边栏中的fluidRow 交换为正文或分成两行
问题描述
我正在尝试将 afluidRow
合并到闪亮仪表板应用程序的侧边栏中。我希望通过这样做,我可以将侧边栏的宽度分成 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 将始终保持在侧边栏中并且恰好在一行中?
解决方案
这会吗?
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)
推荐阅读
- python-3.x - Python客户端不断失去与tcp套接字连接的连接
- angular - 核心模块内的角度模块?
- python - 检测 numpy ndarray 中的整数溢出
- haskell - 堆栈测试——第一次失败后如何停止?
- java - 为服务使用 AsynTask 类仍然得到“跳过 31 帧!应用程序可能在其主线程上做太多工作。”。为什么?
- discord - 以编程方式向 Discord 成员添加角色
- go - 有没有办法动态地收集给定结构类型的实例?
- php - Laravel 身份验证错误?
- python - 从文本文档中读取字符串时,Python 正在替换我的字符串中的字符
- c - 如何捕捉对 exit() 的调用(用于单元测试)