Collapsing of boxes not working with dynamic output about shinydashboard

[phillc73]

I had a look at your code and think I've found a fix. Basically, move the box() into dashboardBody(), and just have the content of the box in output$ui.

Here's some code, with an extra box() added just for fun:

library("shinydashboard")

body <- dashboardBody(
    box(title = "Collapse Me",
        width = 6,
        status = "warning", 
        solidHeader = TRUE, 
        collapsible = TRUE,
        uiOutput("ui")
        ),
    box(title = "Collapse Me Too!", 
        width = 6,
        status = "success", 
        solidHeader = TRUE, 
        collapsible = TRUE,
        uiOutput("uiToo")
        )
  )

server <- function(input, output) {

  output$ui <- renderUI({
    paste("Click to see the box collapse")
    })

  output$uiToo <- renderUI({
    paste("Click to see another box collapse")
    })
}

shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    body
  ),
  server = server
)

I hope that helps.

As an aside, if you use the "height" attribute within the box(), just the content within the box collapses and not the box() itself, which is somewhat interesting.

[wch]

I think the root of the problem is that the Javascript code expects that the various components only need to be initialized when the page is loaded. I'll see what can be done.

[wch]

I've pushed a fix. I'll also try to get it in the upstream AdminLTE sources.

[happyshows]

@wch
Hi Wiston, is there a way to call the show/hide events from a button?
I am using loops to dynamically generate a couple boxes. I want the user to be able to click a button to expand all / collapse all at their preference. Is there some syntax like updateBox(collapse=FALSE/TRUE)?