r - R bs4dash 新包无法正常工作

Question

根据https://cran.r-project.org/web/packages/fresh/vignettes/vars-bs4dash.html中的文档

bs4dash_status(light = "red") 应该在导航栏中呈现红色背景。然而，事实并非如此。它仍然是白色的。关于为什么的任何想法？

我可以放 bs4dash_color(white = "red") ，这会改变导航栏背景，但它也会改变其他东西，我真的不想要。

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

theme1 = create_theme(
    bs4dash_sidebar_light(bg  =  "green"),
    bs4dash_layout(),
    
    bs4dash_status(primary = "#5E81AC", danger = "#BF616A", light = "red"),
    bs4dash_layout(main_bg = "#353c42"),
    bs4dash_color(gray_900 = "#FFF"),   # white = "#272c30" changes the border and sidebar and footer
    bs4dash_status(light = "red"),

    bs4dash_vars(main_footer_bg = "purple",
                 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)