由网友(侧耳听)分享简介：我有一个仪表板，当你按下应用程序右上角的图标时，右边栏就会启用。我想删除滑块上方这块较暗的空间。这可能吗？library(shiny)library(shinydashboard)shinyApp(ui = dashboardPagePlus(header = dashboardHeaderPlus(enable_...

我有一个仪表板，当你按下应用程序右上角的图标时，右边栏就会启用。我想删除滑块上方这块较暗的空间。这可能吗？

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)以表明您正在使用该程序包。

您可以选择不使用CSS显示该HTMLdiv。如果您检查空白处元素，您会发现它的类是"NAV NAV-TABS NAV-JUSIGNING CONTROL-SIDEAR-Tabs"。

您可以将其添加到页眉样式中。例如：

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。