删除ShinyDashboard Plus右侧侧边栏顶部的黑色空间 [英] Remove the dark space at the top of the right sidebar in a shinydashboardPlus
本文介绍了删除ShinyDashboard Plus右侧侧边栏顶部的黑色空间的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有一个仪表板,当你按下应用程序右上角的图标时,右边栏就会启用。我想删除滑块上方这块较暗的空间。这可能吗?
library(shiny)
library(shinydashboard)
shinyApp(
ui = dashboardPagePlus(
header = dashboardHeaderPlus(
enable_rightsidebar = TRUE,
rightSidebarIcon = "gears"
),
sidebar = dashboardSidebar(),
body = dashboardBody(),
rightsidebar = rightSidebar(
background = "dark",
sliderInput(
"obs",
"Number of observations:",
min = 0, max = 1000, value = 500
)
),
title = "Right Sidebar"
),
server = function(input, output) { }
)
推荐答案
首先,您应该在标题中添加library(shinydashboardPlus)
以表明您正在使用该程序包。
您可以将其添加到页眉样式中。例如:
shinyApp(
ui = dashboardPagePlus(
tags$head(
tags$style(
HTML(
".control-sidebar-tabs {display:none;}"
)
)
),
header = dashboardHeaderPlus(
enable_rightsidebar = TRUE,
rightSidebarIcon = "gears",
fixed = T
),
sidebar = dashboardSidebar(),
body = dashboardBody(),
rightsidebar = rightSidebar(
sliderInput(
"obs",
"Number of observations:",
min = 0, max = 1000, value = 500
)
),
title = "Right Sidebar"
),
server = function(input, output) { }
)
理想情况下,您应该将您的css保存在一个单独的文件中,并将其导入到头文件中。有关详细信息,请参阅here。
这篇关于删除ShinyDashboard Plus右侧侧边栏顶部的黑色空间的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文