Удалить темное пространство в верхней части правой боковой панели в ShinydashboardPlus

Question

У меня есть Shinydashboard с панелью прав, когда вы нажимаете значок в правом верхнем углу приложения. Я хотел бы удалить это более темное пространство над слайдером. Это возможно?

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) { }
)

Answer 1

Во-первых, вы должны добавить library(shinydashboardPlus) к заголовку, чтобы указать, что вы используете этот пакет.

Вы можете не отображать этот HTML-div, используя css. Если вы проверите элемент в этом пустом пространстве, вы обнаружите, что его класс - «nav nav-tabs nav-juscted control-sidebar-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 в отдельном файле и импортировать его в свой заголовок. См. здесь для получения дополнительной информации.