如何实现Shiny DataTable中不同单元格触发不同弹窗？

要实现点击DataTable不同列单元格弹出不同弹窗，只需要对原行级弹窗代码做调整，核心是开启单元格级选择，再根据选中单元格所在列定制弹窗内容。以下是完整实现代码：

library(shiny)
library(DT)

app <- shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("mydatatable")
  ),
  
  server = shinyServer(function(input, output, session) {
    mycars <- head(mtcars)
    
    output$mydatatable = DT::renderDataTable(
      mycars, 
      selection = list(mode = 'single', target = 'cell'),  # 开启单元格选择模式
      rownames = FALSE, 
      options = list(dom = 't')
    )
    
    observeEvent(input$mydatatable_cells_selected, {
      # 获取选中单元格的行和列索引
      selected_row <- input$mydatatable_cells_selected[1, 1]
      selected_col <- input$mydatatable_cells_selected[1, 2]
      col_name <- colnames(mycars)[selected_col]
      
      # 根据不同列定制弹窗内容
      popup_content <- switch(
        col_name,
        "mpg" = tagList(
          h4("油耗数据详情"),
          paste("选中行的油耗值：", mycars[selected_row, "mpg"]),
          br(),
          paste("所有样本平均油耗：", round(mean(mtcars$mpg), 2))
        ),
        "disp" = tagList(
          h4("排量数据详情"),
          paste("选中行的排量值：", mycars[selected_row, "disp"]),
          br(),
          paste("所有样本最大排量：", max(mtcars$disp))
        ),
        # 默认弹窗内容（其他列）
        tagList(
          h4("单元格详情"),
          paste("列名：", col_name),
          br(),
          paste("值：", mycars[selected_row, selected_col])
        )
      )
      
      showModal(modalDialog(
        title = paste("点击了", col_name, "列单元格"),
        popup_content,
        easyClose = TRUE
      ))
    })
  })
)

app

关键调整说明： #

• 开启单元格选择：将selection = 'single'改为selection = list(mode = 'single', target = 'cell')，让DT支持点击单个单元格触发事件。
• 获取单元格位置：通过input$mydatatable_cells_selected获取选中单元格的行、列索引，进而得到列名。
• 定制弹窗内容：使用switch函数根据列名分支处理，为mpg、disp等列分别设置专属的弹窗内容，其他列使用默认模板。

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