Question

我正在使用最新版本的闪亮版，包括DataTables版本1.10.2 我想强调所选列中的最大值。类似于示例

options = list(rowCallback = I(
  'function(row, data) {
        // Bold cells for those >= 5 in the first column
   if (parseFloat(data[0]) >=5)
  $("td:eq(0)", row).css("font-weight", "bold");
}'
    )

如果有必要，我可以计算变量中的先前值，例如maxCol0 但我不知道如何将其替换为硬编码值5，如上面的代码

TIA

Answer 1

您可以使用paste在max中添加rowCallback的值：例如，使用mtcars数据集的前20行：

library(shiny)
df<-mtcars[1:20,]

runApp(list(
  ui = basicPage(
    dataTableOutput('mytable')
  ),
  server = function(input, output) {
    output$mytable = renderDataTable({
      df
    },options = list(rowCallback = I(
      paste0('function(row, data) {
      // Bold cells for the max in the first column
      if (parseFloat(data[0])==',max(df[,1]),')
    $("td:eq(0)", row).css("font-weight", "bold");
    }')
    )))
}))

突出显示Shiny DataTables中的最大值

1 个答案: