R shiny 格式數據表內兩個單元格的背景顏色

Question

我有一個數據表（myTable），它只是一個 2x2 數據表（2 行和 2 列）

我想格式化數據表中只有 2 個單元格的背景顏色：

Cell[1,2] 應始終為綠色（第一行，第二列）

Cell[2,1] 應始終為紅色（第二行，第一列）

這是據我所知

任何想法，將不勝感激

    formatStyle(
      myTable, 
      columns = c(1,2),
      fontWeight = 'bold',
      backgroundColor = ????,
      border = '2px solid #ddd'
    )

Answer 1

它有幫助嗎？

library(DT)
changeCellColor <- function(i, j, color){
  color <- sprintf("'%s'", color)
  c(
    "function(row, data, num, index){",
    sprintf("  var i = [%s], j = [%s], color = [%s];", 
            toString(i-1), toString(j), toString(color)),
    "  var n = i.length;",
    "  for(let k=0; k < n; k++){",
    "    if(index == i[k]){",
    "      $('td:eq(' + j[k] + ')', row)",
    "        .css({'background-color': color[k]});",
    "    }",
    "  }",
    "}"  
  )
}
datatable(iris[1:5,], 
          options = list(
            dom = "t",
            rowCallback = JS(changeCellColor(c(1,2), c(2,1), c("blue","red")))
          )
)