修复侧边栏闪亮

Question

有没有办法在闪亮的应用程序中修复侧栏。下面是屏幕截图。现在，它可折叠。但是我们可以解决这个问题，使其不动吗

下面是此示例代码

ui <- dashboardPage(
  
  dashboardHeader(title = "Title1"),
  
  dashboardSidebar(sidebarMenu(.......

Answer 1

您可以使用shinyjs包使用一段JavaScript对其进行隐藏：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(shinyjs::useShinyjs())
)

server <- function(input, output) {
  shinyjs::hide(selector = ".navbar > .sidebar-toggle")
}

shinyApp(ui, server)