bs4Dash：如何禁用（删除）dark/light 皮肤开关？

Question

似乎无法在深色模式下更改主要背景颜色以及 header（导航栏）背景颜色。根据这个 link:

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

我们始终可以使用此功能在深色（或使用浅色功能的浅色）模式下更改侧边栏背景颜色：

bs4dash_sidebar_dark(
    bg = "", 
),

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

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

bs4Dash：如何禁用（删除）dark/light 皮肤开关？

bs4Dash: How to disable (remove) dark/light skin switch?

r

header

shinydashboard

bs4dash