你必须使用actionButton
例如这样:
在 ui.R 中:
shinyUI(pageWithSidebar(
headerPanel(title=""),
sidebarPanel(
checkboxGroupInput("Test1", "Test1", choices=c("1","2","3"), selected="1"),
checkboxGroupInput("Test2", "Test2", choices=c("1","2","3"), selected="2"),
actionButton("Uncheck", label="Uncheck")
),
mainPanel()
))
在 server.R 中:
shinyServer(function(input, output, session) {
observe({
if (input$Uncheck > 0) {
updateCheckboxGroupInput(session=session, inputId="Test1", choices=c("1","2","3"), selected=NULL)
updateCheckboxGroupInput(session=session, inputId="Test2", choices=c("1","2","3"), selected=NULL)
}
})
})
你必须重复选择updateCheckboxGroupInput
使其发挥作用。