adminlte_sidebar not work

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

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)

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.

This is what I get:

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?

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.