adminlte_sidebar not work

[Rohman]

Hello All
Please help my adminlte_sidebar (fresh Package) seem not work entirely, in code below I see it only work for sidebar width, for others variable no change happen.

=================
if (interactive()) {
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
header = dashboardHeader(title = "My dashboard"),
sidebar = dashboardSidebar(
),
body = dashboardBody(

  use_theme(create_theme(
    adminlte_sidebar(
      width = "400px",
      light_bg = "red",
      dark_hover_bg = "#bf431d",
      dark_color = "#d8de83"
    ),
    bs4dash_font(weight_bold = 900)
  ))
)

)

server <- function(input, output, session) {

}

shinyApp(ui, server)
}

[ismirsehregal]

adminlte_sidebar distinguishes between light and dark mode arguments - by default dark is used:

library(shiny)
library(fresh)
library(shinydashboard)

ui <- dashboardPage(
  header = dashboardHeader(title = "My dashboard"),
  sidebar = dashboardSidebar(),
  body = dashboardBody(
    use_theme(create_theme(
      adminlte_sidebar(
        width = "400px",
        dark_bg = "red",
        dark_hover_bg = "#bf431d",
        dark_color = "#d8de83"
      )
    ))
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)

[Rohman]

Dear Ismir,
Just to copy your full code without any modification, the output page as below

For Dark Background

The background when the dasboard on Dark Mode is not red as coded.

[ismirsehregal]

This is what I get:

[Rohman]

Not sure what happen with mine, I have try to uninstall and re-install rstudio but I still do not get the effect.
The above code is still not work, I do not see red background in my sidebar.

I also try to another code example in fresh (create_theme), and still get the same result, though I only copy the full code in "rstudio help".

Any advice?