如何为Shiny的DT数据表添加单选按钮列以删除指定行？

需求说明 #

原本通过外部checkboxGroupInput组件删除DT数据表行，现在需要将选择删除行的交互移至数据表内部，通过新增一列单选按钮来选择要删除的行。

修改后的完整代码 #

library(shiny)
library(DT)
library(dplyr)

# 预处理数据
mtcars[["cars"]] <- row.names(mtcars)
example_mtcars <- head(mtcars, n = 5)

ui <- fluidPage(
  # 移除外部多选框，仅保留DT输出
  DT::dataTableOutput("mtcars_dt")
)

server <- function(input, output, session) {
  # 定义响应式数据，用于存储当前显示的数据集
  current_data <- reactiveVal(example_mtcars)
  
  output$mtcars_dt <- DT::renderDataTable({
    data <- current_data()
    # 为每行添加单选按钮HTML，输入ID关联行标识
    data$delete <- sprintf(
      '<input type="radio" name="delete_row" value="%s" />', 
      data$cars
    )
    
    # 渲染DT表格，配置删除列属性
    DT::datatable(
      data,
      escape = FALSE, # 允许渲染HTML内容
      options = list(
        columnDefs = list(
          list(targets = ncol(data)-1, title = "选择删除", orderable = FALSE) # 设置删除列为不可排序
        )
      )
    )
  })
  
  # 监听单选按钮的选择事件，执行删除逻辑
  observeEvent(input$delete_row, {
    selected_car <- input$delete_row
    # 更新响应式数据，过滤掉选中的行
    current_data(
      current_data() |> filter(cars != selected_car)
    )
    # 清除单选按钮的选中状态，优化交互体验
    session$sendCustomMessage("clear_radio", list())
  })
  
  # 自定义JS逻辑：清除单选按钮选中状态
  tags$head(tags$script(HTML("
    Shiny.addCustomMessageHandler('clear_radio', function(message) {
      document.querySelectorAll('input[name=\"delete_row\"]').forEach(radio => {
        radio.checked = false;
      });
    });
  ")))
}

shinyApp(ui, server)

关键实现细节 #

• 内嵌单选按钮生成：通过sprintf为每行生成HTML单选按钮，所有按钮共用同一name属性实现单选效果，value绑定每行的唯一标识cars。
• 响应式数据管理：用reactiveVal存储当前显示的数据集，确保删除行后表格能实时更新。
• 单选事件监听：通过observeEvent捕获单选按钮的选中值，触发数据集过滤操作。
• 选中状态重置：添加自定义JS代码，在删除行后清除所有单选按钮的选中状态，避免交互残留。

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