Here is a small reprex of a prettyToggle (really pretty btw) strange behavior when used with whinydashboardplus. As you can see toggling the prettytoggle is toggling the menu open/close icon on the right. It works correctly with shinydashboard, incorrectly with shinydashboardPlus.
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyWidgets)
ui <- dashboardPage(
title= "a title",
header=dashboardHeader(title= "a title"),
sidebar=dashboardSidebar(
width="360px",
sidebarMenu(
id = "tabs",
menuItem("Buttons", tabName = "dashboard", icon = icon("dashboard"),
prettyToggle(inputId="pretty_tgl_1", label_on="on", label_off="off")))),
body=dashboardBody(
box(
title = textOutput("box_state"),
id = "mybox",
background = "maroon",
gradient = TRUE,
collapsible = TRUE,
closable = TRUE,
textOutput("pretty_tgl_1"),
width=12)))
server <- function(input, output, session) {
observeEvent(input$pretty_tgl_1, {
output$pretty_tgl_1 <- renderText(input$pretty_tgl_1)
})
}
shinyApp(
ui = ui,
server = server
)
Here is a small reprex of a prettyToggle (really pretty btw) strange behavior when used with whinydashboardplus. As you can see toggling the prettytoggle is toggling the menu open/close icon on the right. It works correctly with shinydashboard, incorrectly with shinydashboardPlus.