Shiny 如何在闪亮的仪表板中手动折叠方框

我试图在发生什么事情时手动折叠一个盒子。似乎我只需要将类

“折叠的盒子”

添加到盒子中，我尝试使用shinyjs函数

addClass

，但我不知道怎么做，因为盒子没有

id

。以下是可用于测试可能解决方案的简单基本代码：

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
      box(collapsible = TRUE,p("Test")),
      actionButton("bt1", "Collapse")
  )
)

server <- function(input, output) {
  observeEvent(input$bt1, {
    # collapse the box
  })
}

shinyApp(ui, server)

库（ShinydaShashboard）
ui我以前从未尝试过使用方框，所以请记住，我的答案可能非常狭隘。但是我快速看了一下，看起来简单地在盒子上设置“collapsedbox”类实际上并不会使盒子折叠。因此，我的下一个想法是通过编程方式点击折叠按钮

正如您所说，没有与框关联的标识符，因此我的解决方案是向
box
添加一个
id
参数。我最初希望它是长方体的id，但它看起来像是给了长方体内部的元素id。没问题-这只是意味着为了选择折叠按钮，我们需要获取id，查找DOM树以找到box元素，然后向下查看DOM树以找到按钮

我希望我说的每句话都有道理。即使没有，这段代码应该仍然可以工作，并有望使事情变得更清楚：）

库（闪亮）
图书馆（shinydashboard）
图书馆（shinyjs）
jscode谢谢@daattali它工作了！，也谢谢你提供的非常有用的shinyjs。我知道这是一篇非常古老的文章，但是我们是否必须使用dashboardPage才能让它工作？我试着在navbarPage中使用它，但它不起作用。有什么解决办法吗？@MridulGarg反正应该可以。检查是否已添加
useShinyjs（）
！不确定这是否对任何人都有帮助，但是如果您的
shinydashboard:：box
位于闪亮的模块中，那么您应该：（i）在模块的UI函数中使用
ns（“box1”）
设置框的id，以及（ii）在模块的服务器函数中使用
js$collapse（会话$ns（“box1”）
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)