在闪亮仪表板中禁用标题时将侧边栏菜单移至顶部

Question

我想在我的闪亮仪表板中禁用标题，并且我希望将侧边栏菜单中的第一个项目放置在侧边栏的绝对顶部，默认情况下它放置在稍低的位置。 有没有办法把它移到那里？

ui <- shinydashboard::dashboardPage(
  shinydashboard::dashboardHeader(disable = TRUE),
  shinydashboard::dashboardSidebar(
    sidebarMenu(
      menuItem("Home", tabName = "home", icon = icon("house"))
  )),
  shinydashboard::dashboardBody(
    shinydashboard::tabBox(
      title = "title",
      shiny::tabPanel(
        "test panel"
        )
      )
    )
)

server <- function(input, output, session) {
}

shiny::shinyApp(ui, server)

Answer 1

我修改了代码：

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- shinydashboard::dashboardPage(
    shinydashboard::dashboardHeader(disable = TRUE),
    shinydashboard::dashboardSidebar(
        tags$style(HTML(".main-sidebar {padding-top: 0px !important;}")),
        sidebarMenu(
            menuItem("Home", tabName = "home", icon = icon("house"))
        )
    ),
    shinydashboard::dashboardBody(
        shinydashboard::tabBox(
            title = "title",
            shiny::tabPanel(
                "test panel"
            )
        )
    )
)

server <- function(input, output, session) {
}

shiny::shinyApp(ui, server)

运行这个应用程序，会产生：

检查这是否是您想要的？