在 R Shiny DT 数据表的上下文中添加条件 Javascript

Question

我想制作一个 javascript function 仅当满足特定条件时才修改单元格的数据。 这是在 R Shiny 中的数据表的上下文中。目标是改进Stephane Laurent的这个巨大答案。

我不明白的是为什么要添加

  if($cell.data.length > 10){...}

不起作用。 在 MWE 中，我将条件设置为 > 1 - 代码适用于所有单元格。 如果将其设置为 > 2，则它不适用于任何单元格。

library(DT)
library(shinipsum)

text_df <- data.frame(
  numbers = 1:3,
  letters = LETTERS[1:3],
  text    = c(
    "Lorem", 
    substr(shinipsum::lorem, 1, 100), 
    substr(shinipsum::lorem, 1, 5000)
  )
)

js <- "
function(cell) {
  var $cell = $(cell);
  $cell.contents().wrapAll('<div class=\\\"content\\\"></div>');
  var $content = $cell.find('.content');
  if($cell.data.length > 1){
  $cell.append($('<button>Read more</button>'));
  $btn = $cell.find('button');
  $content.css({
    height: '20px',
    overflow: 'hidden'
  });
  $cell.data('isLess', true);
  $btn.click(function () {
    var isLess = $cell.data('isLess');
    $content.css('height', isLess ? 'auto' : '100px');
    $(this).text(isLess ? 'Read less' : 'Read more');
    $cell.data('isLess', !isLess);
  });
  } 
}
"
datatable(
  text_df,
  rownames = FALSE,
  options = list(
    "columnDefs" = list(
      list(
        "targets" = 2,
        "createdCell" = JS(js)
      )
    )
  )
)

Answer 1

我编辑了另一篇文章来回答，但我可以在这里开发。

createdCell选项实际上是一个 function 和五个 arguments：

function(cell, cellData, rowData, rowIndex, colIndex) {
  ......
}

要定位包含超过 100 个字符的单元格，您可以执行以下操作：

function(cell, cellData, rowData, rowIndex, colIndex) {
  if(cellData.length > 100) {
    ......
  }
}

这应该与cell.data().length > 100相同。

跳过第一行（记住索引在 JavaScript 中从 0 开始）：

function(cell, cellData, rowData, rowIndex, colIndex) {
  if(rowIndex > 0) {
    ......
  }
}