R语言bs4Dash使用fresh包设置bs4dash_status修改导航栏背景不生效咨询

• bs4dash_status(light = "red")定义的是全局浅色系状态色，不会直接作用于导航栏背景。浅色皮肤导航栏的背景色由独立的navbar_light_bg变量控制，你的代码未对该变量进行赋值，因此修改不生效。
• 代码中存在重复调用bs4dash_layout、bs4dash_status的问题，同类型配置多次调用时，后定义的参数会覆盖之前的参数，虽然你两次设置light为red未影响最终结果，但属于不规范写法。
• bs4dash_color定义的是全局通用色值，修改white变量会牵连所有调用该色值的组件，不符合单组件定制的需求，属于正常表现。

直接在bs4dash_vars参数中新增navbar_light_bg = "red"配置，即可单独修改浅色皮肤导航栏的背景色，不会影响其他组件样式。修改后的完整可运行代码如下：

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

theme1 = create_theme(
    bs4dash_sidebar_light(bg  =  "green"),
    bs4dash_layout(main_bg = "#353c42"),
    bs4dash_status(primary = "#5E81AC", danger = "#BF616A", light = "red"),
    bs4dash_color(gray_900 = "#FFF"),
    bs4dash_vars(main_footer_bg = "purple",
                 navbar_light_bg = "red",
                 navbar_light_color = "#bec5cb",
                 navbar_light_active_color = "#FFF",
                 navbar_light_hover_color = "#FFF")
)

ui = dashboardPage(
    header = dashboardHeader(),
    sidebar = dashboardSidebar(skin = "light"),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    body = dashboardBody(use_theme(theme1))
)

server = function(input, output){}

shinyApp(ui,server)

内容的提问来源于stack exchange，提问作者NellieG