如何让Shiny的checkboxGroupInput实现单选按钮式二元选择？

问题说明 #

• 需求：通过checkboxGroupInput实现二元单选逻辑，点击一个选项时自动取消另一个的选中状态，且始终保证有一个选项被选中（input$choice不能为空）
• 现有代码问题：从「Option 2」切换到「Option 1」时无效，必须先手动取消「Option 2」才能选中「Option 1」
• 限制：因美观需求，需与其他多选checkboxGroupInput保持格式统一，不想使用radioButton；自定义按钮实现过于繁琐

解决方案（JavaScript实现） #

直接在UI中嵌入JS代码，监听复选框点击事件，实现单选逻辑并确保选中状态不空置：

library(shiny)

ui <- fluidPage(
  checkboxGroupInput(
    "choice", 
    "Select one option:", 
    choices = c("Option 1", "Option 2"),
    selected = "Option 1"
  ),
  
  textOutput("selected_choice"),
  
  # 插入自定义JavaScript逻辑
  tags$script(HTML('
    $(document).ready(function() {
      // 监听复选框组内的点击事件
      $("#choice input").on("click", function() {
        const currentCheckbox = $(this);
        const allCheckboxes = $("#choice input");
        
        // 如果点击的是未选中的选项：取消其他选项选中状态
        if (currentCheckbox.is(":checked")) {
          allCheckboxes.not(currentCheckbox).prop("checked", false);
        } else {
          // 如果试图取消最后一个选中的选项：强制保持选中，避免空置
          currentCheckbox.prop("checked", true);
        }
        
        // 同步更新Shiny的input值，确保服务器端能获取正确状态
        Shiny.setInputValue("choice", 
          allCheckboxes.filter(":checked").map(function() {
            return $(this).val();
          }).get()
        );
      });
    });
  '))
)

server <- function(input, output, session) {
  output$selected_choice <- renderText({
    paste("Selected:", input$choice)
  })
}

shinyApp(ui, server)

代码逻辑说明 #

• JavaScript部分：
  1. 监听复选框点击事件，区分「选中新选项」和「取消现有选项」两种场景
  2. 选中新选项时，自动取消另一个选项的选中状态
  3. 试图取消唯一选中的选项时，强制保持选中，确保input$choice始终有值
  4. 通过Shiny.setInputValue同步更新Shiny输入状态，保证服务器端能实时获取正确的选中值
• 服务器端：无需复杂的observe监听逻辑，直接渲染选中结果即可

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