Javascript 闪亮-仪表板页面-如何将按钮添加到框标题

使用

dashboardPage

我制作了一个用盒子做成的仪表板

我想能够点击一个框的标题上的某个地方来触发一些操作。我所知道的头上有按钮的唯一情况是可扩展框的情况。有没有可能对其进行概括，以便在单击方框标题的某个位置时，触发某些操作

我的设计目标是当用户点击此按钮时更新框中的信息，即改变框中的内容

谢谢

body <- dashboardBody(
  fluidRow(
    box(
      title = "Title 1", width = 4, solidHeader = TRUE, status = "primary",
      "Box content"
    ),
    box(
      title = "Title 1", width = 4, solidHeader = TRUE, status = "warning",
      "Box content"
    )
  )
)
# We'll save it in a variable `ui` so that we can preview it in the console
ui <- dashboardPage(
  dashboardHeader(title = "Row layout"),
  dashboardSidebar(),
  body
)
# Preview the UI in the console
shinyApp(ui = ui, server = function(input, output) { })

---

body如果希望在框标题的右角有一个按钮，可以修改原始的
box
函数，或者在创建框后使用一些JavaScript添加按钮

更简单的解决方案是使用
actionLink
或
actionButton
创建一个方框标题。贝娄是这两种情况的一个例子。第一个框的标题是
actionLink
，当用户单击它时，框的内容将更新。在第二个框中，标题是用纯文本和一个小的
action按钮创建的，该按钮也将更新框内容。对于第二个框，可以添加一些自定义样式来创建与普通框大小相同的标题

库（闪亮）
图书馆（shinydashboard）
正文部分，特别是“编辑：整个信息框可点击”之后的部分