如何禁用闪亮的 bs4Dash 仪表板控制栏（右侧栏）

Posted 2023-02-18

【中文标题】如何禁用闪亮的 bs4Dash 仪表板控制栏（右侧栏）

【英文标题】：How to Disable Shiny bs4Dash Dashboard controlbar (Right Sidebar)

【发布时间】：2021-06-28 08:06:31

【问题描述】：

在闪亮的 bs4Dash 仪表板上控制右侧栏的参数是什么。我对https://rinterface.github.io/bs4Dash/articles/step-by-step.html的dashboardControlbar函数的阅读，我理解为页面右侧的侧边栏，是设置disable = T，类似于dashboardSidebar(disable = T)如何控制左侧的外观侧边栏。

我已经设置了controlbar = dashboardControlbar(disable = T)，但是在下面的 Shiny App 上，当按下顶部的按钮时，右侧边栏仍然打开。提前感谢您的任何建议。

编辑（响应 dashboardHeader 评论）： 这个问题参考了通过 github 获得的 bs4Dash V2.0.0。 https://github.com/RinteRface/bs4Dash 请注意，github页面还推荐github版本的htmltools和shiny。

library(shiny)
library(bs4Dash)


ui = dashboardPage(
  header = dashboardHeader(),
  sidebar = dashboardSidebar(
    disable = T
    ),
  body = dashboardBody(),
  controlbar = dashboardControlbar(
    disable = T
  ),
  title = ""
)

server <- function(input, output, session) 
shinyApp(ui, server)

【问题讨论】：

运行你的代码后我得到unused argument (header = dashboardHeader())。您从哪个包中使用dashboardPage 函数？我在bs4Dash::dashboardPage 中看不到header 参数

我假设未使用的参数是因为我使用的是 bs4Dash V2.0.0。我更新了问题。谢谢

【参考方案1】：

您可以删除控制栏参数以禁用它。

library(shiny)
library(bs4Dash)


ui = dashboardPage(
  header = dashboardHeader(),
  sidebar = dashboardSidebar(
    disable = T
  ),
  body = dashboardBody(),
  title = ""
)

server <- function(input, output, session) 
shinyApp(ui, server)

【讨论】：

哦，当然。一个简单的解决方法。那行得通。谢谢