r - bs4Dash:如何禁用(删除)深色/浅色皮肤开关？

Question

似乎无法在深色模式下更改主要背景颜色以及标题(导航栏)背景颜色。通过此链接:

• Not able to change bs4Dash "dark" skin theme background in Shiny .

我们始终可以使用此功能在黑暗(或使用灯光功能的灯光)模式下更改侧边栏背景颜色:

bs4dash_sidebar_dark(
    bg = "", 
),

但是header没有类似的功能。
因此，能够从标题中删除或停用深色/浅色皮肤开关会很有用。我找不到任何选项来删除此切换开关。如果有人知道如何做到这一点，将不胜感激。
这是一个简单的示例代码:

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    title = "Basic Dashboard",
    header = dashboardHeader(),
    sidebar = dashboardSidebar(),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    body = dashboardBody()
  ),
  server = function(input, output) {}
)

Answer 1

在 dashboardPage() 中设置参数 dark = NULL:

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    dark = NULL, 
    
    title = "Basic Dashboard",
    header = dashboardHeader(),
    sidebar = dashboardSidebar(),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    body = dashboardBody()
  ),
  server = function(input, output) {}
)