我已经看到了几个关于这个问题的条目并尝试了其中的几个,但没有任何工作没有错误或根本没有......
我闪亮的仪表板主体中有一个复选框组
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)
})
我确定问题在于我如何设置... 当我运行代码时,我没有收到任何错误,但是当我点击按钮时,也没有任何反应......
干杯~!
答案 0 :(得分: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)