使用操作按钮重置复选框组

如何解决使用操作按钮重置复选框组

我已经看到了几个关于这个问题的条目并尝试了其中的几个，但没有任何工作没有错误或根本没有......

我闪亮的仪表板主体中有一个复选框组

checkBoxGroupInput("dbr",selected = NULL,h4("Select Data Breach rating"),c(
                      "Low" = "Low","Medium" = "Medium","High" = "High","Critical" = "Critical"
                       # End check list 
                       ),# End check group
                      ),

我在仪表板主体中还有一个使用操作按钮的重置按钮

actionButton("reset_artifact_entry",label = "Reset")

在代码的服务器部分我有一个observeEvent

server <- function(input,output,session) {

# Rest button for artifact entry page
    observeEvent(input$reset_artifact_entry,{
        updateCheckBoxGroupInput(session,"dbr",selected = NULL)
        
    })

我确定问题在于我如何设置... 当我运行代码时，我没有收到任何错误，但是当我点击按钮时，也没有任何反应......

干杯~！

解决方法

您只需要在 updateCheckboxGroupInput 中添加相同的选项，然后它就会起作用。见下文。

library(shiny)
ui <- fluidPage(
  wellPanel(checkboxGroupInput("dbr",selected = NULL,h4("Select Data Breach Rating"),c("Low" = "Low","Medium" = "Medium","High" = "High","Critical" = "Critical")),actionButton("reset_artifact_entry",label = "Reset")
  )
)

server <- function(input,output,session) {
  # Rest button for artifact entry page
  observeEvent(input$reset_artifact_entry,{
    updateCheckboxGroupInput(session,"dbr",choices = c(
      "Low" = "Low","Critical" = "Critical"),selected = NULL)})
}
shinyApp(ui,server)