当在shinydashboard中禁用标题时,将sidebarMenu移到顶部

我修改了代码:

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)

运行此应用程序,会产生:

检查一下这是否是你想要的?