允许用户删除表格中的单元格

Question

我试图允许用户输入删除表格中的某些单元格。例如，如果我们在 Shiny 中显示这个简单的表格：

用户可以选择单个单元格，这将导致单元格内的文本/格式包含删除线。如果用户选择 Josh Barry 的 GPA，表格将更新为：

有没有办法做到这一点，并且让 R Shiny 识别哪些单元格应用了删除线？

我知道存在像

rhandsontable

这样的包，但无法确定任何删除线功能。

谢谢！

Answer 1

这是一种使用DT的方法：

library(DT)

callback <- c(
  "table.on('click', 'tbody', function(e) {",
  "  const td = e.target.closest('td');",
  "  if(!td) {return;} // Quit, not clicked on a cell",
  "  const row = td.parentElement;",
  "  const i = row.rowIndex - 1;",
  "  const j = td.cellIndex;",
  "  var cell = table.cell(i, j);",
  "  const cellData = cell.data();",
  "  cell.data('<s>' + cellData + '</s>').draw();",
  "});"
)

dat <- iris[1:5, ]

datatable(
  dat, 
  callback = JS(callback)
)