如何在Base R Shiny中正确获取Bootstrap单选按钮组的值？

方法一：自定义Shiny输入绑定（规范方案） #

这是最贴合Shiny设计逻辑的做法，能完美支持值读取、预设选中和实时更新，替代onclick的临时方案。

步骤1：编写生成Bootstrap单选组的R函数 #

这个函数负责输出符合Bootstrap结构的HTML，同时预留inputId和预设选中值的接口：

bs_radioGroupInput <- function(inputId, label, choices, selected = NULL) {
  # 处理选中值，默认选第一个选项
  if (is.null(selected)) selected <- names(choices)[1]
  
  # 生成每个单选按钮的HTML片段
  radio_items <- lapply(names(choices), function(choice_name) {
    checked_status <- if (choice_name == selected) 'checked' else ''
    tags$div(
      class = 'form-check',
      tags$input(
        class = 'form-check-input',
        type = 'radio',
        name = inputId,  # 核心：name必须与inputId一致，Shiny才能识别
        id = paste0(inputId, '-', choice_name),
        value = choice_name,
        checked = checked_status
      ),
      tags$label(
        class = 'form-check-label',
        `for` = paste0(inputId, '-', choice_name),
        choices[[choice_name]]
      )
    )
  })
  
  # 组合完整的组件结构
  tags$div(
    id = inputId,
    class = 'form-group',
    tags$label(label),
    do.call(tags$div, radio_items)
  )
}

步骤2：编写Shiny输入绑定的JS代码 #

在UI中加入这段JS，让Shiny能识别并处理这个自定义组件：

$(document).on('shiny:connected', function() {
  // 定义输入绑定对象
  var bsRadioBinding = new Shiny.InputBinding();
  
  $.extend(bsRadioBinding, {
    // 匹配自定义组件的选择器
    find: function(scope) {
      return $(scope).find('.form-group[id]').has('.form-check-input[type="radio"]');
    },
    // 获取当前选中的值
    getValue: function(el) {
      return $(el).find('.form-check-input:checked').val();
    },
    // 设置选中值（支持预设或动态更新）
    setValue: function(el, value) {
      $(el).find('.form-check-input[value="' + value + '"]').prop('checked', true);
    },
    // 监听单选按钮变化，通知Shiny更新值
    subscribe: function(el, callback) {
      $(el).on('change.bsRadioBinding', '.form-check-input', function() {
        callback();
      });
    },
    // 取消监听
    unsubscribe: function(el) {
      $(el).off('.bsRadioBinding');
    }
  });
  
  // 注册绑定到Shiny
  Shiny.inputBindings.register(bsRadioBinding);
});

使用示例 #

在Shiny App中直接调用即可，和原生组件用法一致：

library(shiny)

ui <- fluidPage(
  tags$head(tags$script(HTML('上面的JS代码'))),
  bs_radioGroupInput(
    inputId = 'my_radio',
    label = '选择一个选项',
    choices = list('选项1' = 'opt1', '选项2' = 'opt2', '选项3' = 'opt3'),
    selected = 'opt2'  # 预设选中第二个选项
  ),
  verbatimTextOutput('radio_value')
)

server <- function(input, output) {
  output$radio_value <- renderPrint({
    input$my_radio  # 直接读取选中值
  })
}

shinyApp(ui, server)

方法二：改造Shiny原生radioButtons（快速方案） #

如果不需要完全自定义HTML结构，直接给Shiny原生的radioButtons加上Bootstrap类，就能用上Bootstrap样式，同时保留原生的输入绑定（无需额外写JS）：

bs_radioButtons <- function(inputId, label, choices, selected = NULL, inline = FALSE) {
  # 调用原生radioButtons生成基础结构
  radio <- radioButtons(inputId, label, choices, selected, inline)
  # 替换类名为Bootstrap的form-check系列
  radio$children[[2]] <- lapply(radio$children[[2]], function(item) {
    item$attribs$class <- if (inline) 'form-check form-check-inline' else 'form-check'
    item$children[[1]]$attribs$class <- 'form-check-input'
    item$children[[2]]$attribs$class <- 'form-check-label'
    item
  })
  radio
}

使用示例 #

用法和原生radioButtons完全一致，自带Shiny的所有原生功能：

ui <- fluidPage(
  theme = bslib::bs_theme(),  # 加载Bootstrap样式
  bs_radioButtons(
    inputId = 'my_radio',
    label = '选择一个选项',
    choices = c('选项1', '选项2', '选项3'),
    selected = '选项2'
  ),
  verbatimTextOutput('radio_value')
)

server <- function(input, output) {
  output$radio_value <- renderPrint({
    input$my_radio
  })
}

shinyApp(ui, server)

问题根源说明 #

• 直接用shinyWidgets的HTML但缺JS依赖：shinyWidgets的组件依赖自身的输入绑定JS，未加载时Shiny无法识别值变化。
• onclick绑定Shiny.setInputValue：这种方式只能手动触发更新，无法支持updateRadioGroupInput动态修改，也没法自动处理预设值的初始化逻辑。

上面两种方法都解决了这些问题，方法一适合高度自定义场景，方法二适合快速实现Bootstrap样式需求。

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