用於 DT 格式的 JavaScript 函數（R 閃亮）

Question

我需要設計 R Shiny 數據表，使用類似的 Java 腳本（如 DT 底部的樓梯，顯示預測值 -斜體和灰色）。

我正在嘗試使用此功能（ 來自此問題），但我的所有表格從第 3 列開始都是斜體。 我該如何解決？ （假設我的 for 循環不正確）

  rowCallback <- function(rows){
c(
  "function(row, data, num){",
  sprintf("  var rows = [%s];", paste0(rows-1, collapse = ",")),
  "  for(let j=data.length; j >= 3; j--){",
  "    for(let i=j; i<data.length; i++){",
  "      $('td:eq('+i+')', row)",
  "        .css({'background-color': 'rgb(211,211,211)', 'font-style': 'italic', 'font-color': 'rgb(230,230,230)'});",
  "    }",
  "  }",
  "}"  
)

}

Answer 1

未經測試，我會嘗試：

rowCallback <- c(
  "function(row, data, num, index){",
  "  var ncols = data.length;",
  "  for(let j=ncols; j > ncols-index; j--){",
  "    $('td:eq('+j+')', row)",
  "      .css({'background-color': 'rgb(211,211,211)', 'font-style': 'italic', 'font-color': 'rgb(230,230,230)'});",
  "  }",
  "}"  
)

筆記：

• 您不需要 R 函數，因為未使用rows參數。

• $('td:eq('+j+')', row)選擇當前行的第 j 個元素，因此您不必遍歷行。