如何在Shiny中实现prettySwitch开关互斥（可全不选）效果

原代码出现双击才生效、交互逻辑不符合预期的问题来自三个核心硬伤：

• 会话参数缺失：所有Shiny的输入组件更新函数都需要传入当前会话的session对象才能正常工作，原代码的server函数未声明、注入session参数，本身就会导致更新逻辑失效。
• 更新函数适配错误：prettySwitch是shinyWidgets封装的自定义组件，使用基础Shiny的updateCheckboxInput无法匹配组件的状态更新逻辑，会造成UI渲染视觉状态和服务端存储的输入值错位。用户第一次点击开关时，界面显示的开关状态已经变化，但服务端的input值未同步更新，必须第二次点击才能完成值的对齐，就出现了“点两次才生效”的操作体感。
• 事件监听逻辑不规范：原代码将input$one == TRUE这类布尔判断结果作为observeEvent的监听源，而非直接监听开关本身的输入值变化，会进一步放大状态错位带来的触发时机偏差。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    titlePanel("互斥prettySwitch实现"),
    prettySwitch('one', '开关一'),
    prettySwitch('two', '开关二')
)

server <- function(input, output, session) {
    observeEvent(input$one, {
        # 当开关一被选中为TRUE时，强制将开关二设为未选中
        if (isTRUE(input$one)) {
            updatePrettySwitch(
                session = session,
                inputId = "two",
                value = FALSE
            )
        }
    })
    
    observeEvent(input$two, {
        # 当开关二被选中为TRUE时，强制将开关一设为未选中
        if (isTRUE(input$two)) {
            updatePrettySwitch(
                session = session,
                inputId = "one",
                value = FALSE
            )
        }
    })
}

shinyApp(ui = ui, server = server)

• 满足“两个开关均可处于未选中”的要求：仅当某一个开关被切换为TRUE的场景下，才会触发对另一个开关的状态更新。用户点击已经处于选中状态的开关将其切回FALSE时，不会触发反向的更新操作，两个开关可以同时处于未选中状态。
• 满足“同一时间仅允许选中一个开关”的要求：任意开关被切为TRUE时，会立刻将另一个开关强制设为FALSE，不会出现两个开关同时选中的情况。
• 解决双击生效问题：使用shinyWidgets专属的updatePrettySwitch更新函数后，组件UI状态和服务端输入值会实时同步，第一次点击就能完成状态更新，不存在前后端错位的问题。

内容的提问来源于stack exchange，提问作者fzenoni