r - bs4Dash：如何禁用（删除）深色/浅色皮肤开关？

Question

似乎无法在暗模式下更改主背景颜色和标题（导航栏）背景颜色。根据此链接：

• 无法在 Shiny 中更改 bs4Dash “深色”皮肤主题背景。

我们总是可以使用这个函数在深色（或使用浅色功能的浅色）模式下更改侧边栏背景颜色：

bs4dash_sidebar_dark(
    bg = "", 
),

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

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

将参数设置dark = NULL为dashboardPage()：

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) {}
)