rapid collapse appearance/behaviour of box() inside of shinydashboardPlus::dashboardPage()

[DavidJesse21]

I am using version 2.0.0.9000 of shinydashboardPlus. Using box(collapsible=TRUE) regardless wether it is shinydashboard::box() or shinydashboardPlus::box() inside of shinydashboard::dashboardPage() works fine in every way. While box(collapsible=TRUE) inside of shinydashboardPlus::dashboardPage() still works fine in most respects, collapsing the box is rapid and not smooth anymore. You can compare the behaviour in this example by switching between shinydashboard::dashboardPage and shinydashboardPlus::dashboardPage

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

ui <- shinydashboardPlus::dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(

    # collapsible box
    shinydashboardPlus::box(
      title = "A collapsible box",
      status = "primary",
      solidHeader = TRUE,
      width = 12,
      collapsible = TRUE,
      p("Some content...")
    )

  )
)

server <- function(input, output) { }

shinyApp(ui, server)

[nvelden]

I am experiencing exactly the same issue.

[DivadNojnarg]

See issue #69 for the cause. If you want to change the default animation speed (below super fast boxes):

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

ui <- shinydashboardPlus::dashboardPage(
  options = list(
    animationSpeed = 10
  ),
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(

    # collapsible box
    shinydashboardPlus::box(
      title = "A collapsible box",
      status = "primary",
      solidHeader = TRUE,
      width = 12,
      collapsible = TRUE,
      p("Some content...")
    )

  )
)

server <- function(input, output) { }

shinyApp(ui, server)

[nvelden]

This does not fix the issue for me. I have the latest version (2.0.0).

[DivadNojnarg]

Could you reinstall and empty your web browser cache?

[nvelden]

That solved it thanks!