shinydashboard侧边栏中的fluidRow交换为正文或拆分为两行
提问于 2018-04-25 07:20:55
我正在尝试将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拆分时，复选框将移到下面的行
如何才能确保侧边栏中的fluidRow始终位于侧边栏中且仅在一行中？
回答 1
Stack Overflow用户
发布于 2018-04-25 13:20:15
这样行吗？
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)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50016294
复制相关文章
腾讯云开发者
