在DT中单击时更新data.frame

library(DT)

# 创建一个包含数据的data.frame对象
df <- data.frame(
  Name = c("John", "Jane", "Mike"),
  Age = c(25, 30, 35),
  Salary = c(50000, 60000, 70000)
)

# 将data.frame对象转换为可交互式的表格
datatable(df, options = list(
  # 设置表格支持单击事件的监听
  dom = 't',
  # 编写回调函数，当用户在表格中单击时触发该函数
  callback = JS(
    "table.on('click.dt', 'tr', function() {",
    "  var data = table.row(this).data();",
    "  Shiny.setInputValue('clicked_row', data[0]);",
    "});"
  )
))

# 在Shiny应用程序中使用Shiny的observeEvent()函数监听用户单击事件
observeEvent(input$clicked_row, {
  # 获取用户单击的行的索引
  clicked_row <- input$clicked_row
  
  # 根据需要更新data.frame对象
  # ...
  
  # 使用replaceData()函数将更新后的data.frame对象重新渲染到表格中
  replaceData(proxy, df, resetPaging = FALSE)
})