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

问题描述

在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
)
}

谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）