突出显示闪亮数据表中的最大值

【问题标题】：Highlighting maximum value in Shiny DataTables突出显示闪亮数据表中的最大值
【发布时间】：2014-10-10 20:41:57
【问题描述】：

我正在使用最新版本的 Shiny，包括 1.10.2 版的 DataTables 我想突出显示选定列中的最大值。类似例子

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

【问题讨论】：

标签： datatables shiny

【解决方案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");
    }')
    )))
}))

【讨论】：