Estoy tratando de colorear celdas que cumplen ciertas condiciones. Por ejemplo, me gustaría colorear celdas cuyo valor sea igual a sus respectivos valores de columna de la primera fila de datos. Descubrí cómo colorear valores específicos usando javascript, pero no puedo averiguar cómo establecer las condiciones como lo que quiero. Aquí está el código:
library(DT) df <- head(iris) df %>% datatable %>% formatStyle(1:2, color = JS("value % 1 === 0 ? 'red' : ''"))En esta tabla, las celdas resaltadas son aquellas cuyos valores coinciden con el valor de la columna de la primera fila de datos. Me gustaría establecer condiciones de javascript para que resalten las celdas como se muestra en la imagen.
Si usa la función styleEqual , casi funciona, excepto que también subraya la fila de referencia:
library(DT) df <- head(iris) ref <- df[1,] color <- "orange" datatable(df) %>% formatStyle(1:5, backgroundColor = styleEqual(ref[1:5], rep(color, 5)))