如何在Shiny的reactable中隐藏单选按钮列并保留single选择功能

要实现隐藏reactable表格中的单选按钮列，同时保留selection = "single"的单选择功能，只需针对单选按钮的DOM元素和选择列样式做针对性修改，以下是完整解决方案：

修改CSS文件（hide_radio.css） #

/* 隐藏单选按钮 */
.reactable .selection-cell input[type='radio'] {
  display: none;
}

/* 隐藏选择列的表头 */
.reactable .selection-header {
  display: none;
}

/* 将选择列宽度设为0，彻底不占用页面空间 */
.reactable .selection-column {
  width: 0;
  padding: 0;
}

修改Shiny应用代码（app.R） #

library(shiny)
library(reactable)

ui <- fluidPage(
  includeCSS("hide_radio.css"),
  titlePanel("隐藏单选按钮"),
  mainPanel(reactableOutput("table"))
)

server <- function(input, output) {
  output$table <- renderReactable({
    reactable(
      mtcars,
      selection = "single",
      # 开启行点击触发选择功能
      onClick = "select",
      columns = list(
        .selection = colDef(
          # 设置单元格样式：宽度0、无内边距
          style = list(width = 0, padding = 0),
          # 隐藏选择列的表头
          headerStyle = list(display = "none")
        )
      )
    )
  })
}

shinyApp(ui = ui, server = server)

关键说明 #

• CSS通过reactable自带的类名（.selection-cell、.selection-header、.selection-column）精准定位选择列相关元素，避免影响其他内容；
• 添加onClick = "select"确保点击表格任意行都能触发单选择，替代原来点击单选按钮的操作；
• 选择列的宽度设为0并隐藏表头，彻底消除选择列的视觉占用，同时保留底层的选择逻辑。

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