您需要一个连接到操作按钮的观察者表达式。server以下是要插入到最小示例部分的代码:
observe({
if (input$data_upload_done %% 2 == 0 ) {
updateTabsetPanel(session, "mynavlist", selected = "Data Upload")
} else {
updateTabsetPanel(session, "mynavlist", selected = "Data Check")
}
})
Run Code Online (Sandbox Code Playgroud)