Estoy tratando de encontrar una manera de verificar si un Shiny Dashboard Box está colapsado o expandido.

Al leer la gran respuesta de @daattali enCómo contraer manualmente una caja en el tablero brillante Sé que es posible contraer la caja desde el lado del servidor utilizando el paquete shinyjs, como se ilustra en el siguiente código

library(shiny)
library(shinydashboard)
library(shinyjs)

jscode <- "
shinyjs.collapse = function(boxid) {
$('#' + boxid).closest('.box').find('[data-widget=collapse]').click();
}
"

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    extendShinyjs(text = jscode),
    actionButton("bt1", "Collapse box1"),
    actionButton("bt2", "Collapse box2"),
    br(), br(),
    box(id = "box1", collapsible = TRUE, p("Box 1")),
    box(id = "box2", collapsible = TRUE, p("Box 2"))
  )
)

server <- function(input, output) {
  observeEvent(input$bt1, {
    js$collapse("box1")
  })
  observeEvent(input$bt2, {
    js$collapse("box2")
  })
}

shinyApp(ui, server)  

Al inspeccionar el UI HTML, veo que la respuesta a mi problema podría resolverse accediendo a la clase de ícono (para ver si es fa fa plus o fa fa minus), pero no tengo idea de cómo hacerlo.

Cualquier ayuda sería muy apreciada.

Salud