Estou tentando encontrar uma maneira de verificar se uma caixa de painel brilhante está recolhida ou expandida.

Lendo a ótima resposta de @daattali emComo recolher manualmente uma caixa no painel brilhante Eu sei que é possível recolher a caixa do lado do servidor usando o pacote shinyjs, conforme ilustrado no código abaixo

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)  

Ao inspecionar o HTML da interface do usuário, vejo que a resposta para o meu problema pode ser resolvida acessando a classe icon (para ver se é fa fa-plus ou fa fa-minus), mas não tenho idéia de como fazer isso.

Qualquer ajuda seria muito apreciada.

Felicidades