R ShinyDashbaord通过操作按钮更改框状态

Question

在Shinydashboard中，您可以确定框小部件的状态：r documentation

是否可以通过使用actionbutton将状态从“警告”更改为“信息”？没有足够的经验，我认为这应该很简单，但是所提供的解决方案非常复杂，并且与操作按钮无关。 （solution 1，solution 2

library(shiny)

# A dashboard body with a row of infoBoxes and valueBoxes, and two rows of boxes
body <- dashboardBody(

    box(title = "Press button to change my status",
        status = "warning", solidHeader = TRUE, collapsible = TRUE,
        sliderInput("test", "test", min=0, max=100, value = 0, step = 10),
        actionButton("testbutton", "change status")
    ), 
  )
)

server <- function(input, output) {
  
# some actionbutton code  
  
}
})
shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    body
  ),
  server = server
)
}

谢谢！