Menu Item with Sub Menu Item Arrow Not Rotating

[omerkara]

Hello, In version 2.0.4.9000, the menu item arrow does not rotate when using shinydashboardPlus::dashboardPage() function.

Please see below for an example.

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

header <- shinydashboard::dashboardHeader()

sidebar <- shinydashboard::dashboardSidebar(
    sidebarMenu(
        id = "tabs",
        menuItem("Menu Item 1", icon = icon("calendar"),
                 sliderInput(
                     inputId = "slider1",
                     label = "Dummy Label",
                     min = 0, max = 10, step = 1, value = 5
                 )
        ),
        menuItem("Menu Item 2", icon = icon("calendar"),
                 sliderInput(
                     inputId = "slider2",
                     label = "Dummy Label",
                     min = 0, max = 10, step = 1, value = 5
                 )
        )
    )
)

body <- shinydashboard::dashboardBody()

shinyApp(
    ui = shinydashboard::dashboardPage(header, sidebar, body),
    server = function(input, output) { }
)

vs

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

header <- shinydashboard::dashboardHeader()

sidebar <- shinydashboard::dashboardSidebar(
    sidebarMenu(
        id = "tabs",
        menuItem("Menu Item 1", icon = icon("calendar"),
                 sliderInput(
                     inputId = "slider1",
                     label = "Dummy Label",
                     min = 0, max = 10, step = 1, value = 5
                 )
        ),
        menuItem("Menu Item 2", icon = icon("calendar"),
                 sliderInput(
                     inputId = "slider2",
                     label = "Dummy Label",
                     min = 0, max = 10, step = 1, value = 5
                 )
        )
    )
)

body <- shinydashboard::dashboardBody()

shinyApp(
    ui = shinydashboardPlus::dashboardPage(header, sidebar, body),
    server = function(input, output) { }
)

Thanks,