在一个R闪闪发光的DataTable中，试图在单击一个单元格后展开它。我该怎么做？

Question

我想在R中的DataTable中扩展一个单元格，当它被点击时会发亮。我遇到了以下实现，用户可以悬停在单元格上查看其全部内容：

DT::datatable(
        bgcDF,
        class = "display nowrap",
        rownames = FALSE,
        escape = FALSE,
        options = list(
          columnDefs = list(list(
            targets = c(4),
            render = JS(
              "function(data, type, row, meta) {",
              "return type === 'display' && data.length > 60 ?",
              "'<span title=\"' + data + '\">' + data.substr(0, 60) + '...</span>' : data;",
              "}")
          )),

这是我需要的前半部分。如果单元格中的数据满足此标准并已被缩短，那么如何实现单击功能来扩展该单元格中的数据？

谢谢

Answer 1

可能通过请求可编辑的单元格，但禁用对所有列的编辑：

library(DT)

dat <- iris

datatable(
  dat,
  editable = list(
    target = "cell", 
    disable = list(columns = seq_along(dat))
  )
)

然后双击单元格时显示单元格内容。