使用flexdashboard在闪亮的应用中获取点击的DT索引

install.packages("flexdashboard")

rmarkdown::draft("my_dashboard.Rmd", template = "flex_dashboard", package = "flexdashboard")

---
title: "My Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
---

```{r setup, include=FALSE}
library(flexdashboard)
library(DT)

# 创建一个包含点击事件的DT表格
datatable(iris, options = list(
  initComplete = JS(
    "function(settings, json) {",
    "  table.on('click.dt', 'tr', function() {",
    "    var index = table.row(this).index();",
    "    Shiny.setInputValue('clicked_index', index);",
    "  });",
    "}")
))

# 输出点击的索引
renderText({
  input$clicked_index
})

rmarkdown::render("my_dashboard.Rmd")