R 将侧边栏固定在闪亮的

有没有办法修复闪亮应用程序中的侧边栏。下面是截图。现在，它是可折叠的。但我们能不能把它修好，让它不动

下面是此应用程序的示例代码

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

---

ui您可以使用
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)

库（闪亮）
图书馆（shinydashboard）
ui非常感谢：）