在Shiny DataTables中突出顯示最大值

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在rowCallback添加max值： 例如，使用第20行mtcars數據集：

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