Ändern Sie die Farbe einer Zeile basierend auf anderen Spalte mit DT - Shiny - R

Question

Ich habe eine data.table mit 3 Spalten.

trial <- matrix(c(3,4,1,2,1,2,4,2,5), ncol=3) 
colnames(trial) <- c('value', 'min', 'max') 
trial.table <- data.table(trial) 

Mit R (Glänzendes und DT), würde Ich mag die Schriftfarbe des Spalt Wertes ändern basierend auf der minimalen und maximalen Bereich.

Ich versuche, diese zu nutzen:

datatable(trial.table, rownames = FALSE) %>% 
formatStyle('value', color = styleInterval(c(trial.table$min,trial.table$max), c('orange', 'green', 'red'))) 

aber es gibt mir zurück:

Error in styleInterval(c(trial.table$min, trial.table$max), c("orange", : 
    length(cuts) must be equal to length(values) - 1 

Das Ergebnis sollte sein:

Spalte "Wert" mit den Werten: 3 mit Farbe grün, 4 mit Farbe rot und 1 mit Farbe orange.

Es funktioniert, wenn statt c(trial.table$min,trial.table$max) wir Zahlen verwenden - c(1,2) ...

Vielen Dank!

Answer 1

Die Lösung ist die Verwendung von rowCallback statt styleInterval.

trial <- matrix(c(3,4,1,2,1,2,4,2,5), ncol=3) 
colnames(trial) <- c('value', 'min', 'max') 
trial.table <- data.frame(trial) 


DT::datatable(trial.table,options = list(rowCallback = JS(' 
         function(nRow, aData, iDisplayIndex, iDisplayIndexFull) { 
         if (parseFloat(aData[1]) < aData[2]) 
         $("td:eq(1)", nRow).css("color", "orange"); 
         if (parseFloat(aData[1]) <= aData[3] && parseFloat(aData[1]) >= aData[2]) 
         $("td:eq(1)", nRow).css("color", "green"); 
         if (parseFloat(aData[1]) > aData[3]) 
         $("td:eq(1)", nRow).css("color", "red"); 
         }')))