如何让R Shiny的复选框组件实现单选按钮的功能？

需求背景 #

需要在表格同一列中统一使用复选框样式，其中部分行需实现单选行为（每次仅能选中一项，其他项自动取消选中），同时选中项需打印到控制台。原尝试的代码存在重复输出、切换需手动取消的问题。

正确实现代码 #

UI部分 #

library(shiny)

anchors <- c("Beginning", "Current")

ui <- fluidPage(
  checkboxGroupInput(
    inputId = 'anchor_select', 
    label = "", 
    choices = anchors,
    selected = NULL  
  )
)

Server部分 #

server <- function(input, output, session) {
  # 存储当前选中项，避免循环触发更新
  current_selection <- reactiveVal(NULL)
  
  observeEvent(input$anchor_select, {
    # 处理无选中项的情况：重置为之前的选中状态（可根据需求调整为允许空选）
    if (length(input$anchor_select) == 0) {
      updateCheckboxGroupInput(session, "anchor_select", selected = current_selection())
      return()
    }
    
    # 找出用户最后点击的选项（对比当前和之前的选中状态）
    new_selection <- setdiff(input$anchor_select, current_selection())
    
    # 处理取消选中的情况：保持之前的选中状态
    if (length(new_selection) == 0) {
      updateCheckboxGroupInput(session, "anchor_select", selected = current_selection())
      return()
    }
    
    # 更新选中状态为最后点击的选项
    current_selection(new_selection)
    updateCheckboxGroupInput(session, "anchor_select", selected = new_selection)
    
    # 打印选中项到控制台
    cat(new_selection, "\n")
  }, ignoreInit = TRUE) # 忽略初始化时的触发
}

shinyApp(ui = ui, server = server)

关键逻辑说明 #

1. 避免循环触发：使用reactiveVal存储当前选中项，对比每次输入的变化，精准定位用户最后操作的选项，防止updateCheckboxGroupInput触发后再次进入事件监听。
2. 处理边界情况：
   • 当用户取消所有选中项时，自动恢复之前的选中状态（若需允许空选，可删除这部分逻辑）
   • 当用户点击已选中的复选框时，保持原有选中状态
3. 确保单选行为：每次仅保留用户最后点击的选项，自动取消其他选中项，同时只打印一次选中结果。

内容的提问来源于stack exchange，提问作者Village.Idyot