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

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

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

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

---

server您只需在内部添加相同的选项
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",
      "Medium" = "Medium",
      "High" = "High",
      "Critical" = "Critical"), selected = NULL)})
}
shinyApp(ui, server)

库（闪亮）
ui现在正在尝试…天啊，废话-将此添加到主要代码集…jeebz的圣母-它成功了！非常感谢-我现在可以继续我的工作了…很高兴这对我有帮助。：）