Question

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

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

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

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

干杯~！

Answer 1

您只需要在 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)

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

1 个答案: