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

Question

我使用的是最新版本的shine，包括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

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");
    }')
    )))
}))