無法正確更改 bs4Dash::dashboardSidebar() 的背景顏色

Question

1. 僅使用bs4Dash的顏色問題 package

我開始使用 package bs4Dash ，我遇到了左側邊欄 bs4Dash::dashboardSidebar() 的背景顏色問題。 我觀察到，當我啟動應用程序時，左側邊欄的背景顏色始終為灰色，但是當我切換到暗模式並返回亮模式時，顏色呈現為白色背景。

您可以使用從bs4Dash的幫助網頁中獲取的以下代碼來觀察此行為

library(shiny)
library(bs4Dash)

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

2. 使用fresh和bs4Dash的顏色問題 package

第一次打開應用時使用 package fresh仍然是灰色背景顏色，但是當我從暗模式切換到亮模式時，它根據 fresh::create_theme() 渲染顏色。

這是一個例子

# library

library(shiny)
library(bs4Dash)
library(fresh)

# theme creator with fresh::

mytheme <- create_theme(
    bs4dash_sidebar_light(
        bg = "#FFFF00")
)

#shinyApp

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

我在 Github 中發現了這個問題，但不知道如何解決這個問題。

Answer 1

this issue中提到了這個問題。 您可以通過在dashboardSidebar()中添加skin = "light"來修復它，如下所示：

library(shiny)
library(bs4Dash)

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