según - ¿Cómo mostrar en la aplicación brillante una matriz, especificando el color con condicionales?

formato condicional colorear filas dependiendo del valor de una celda

Question

Tengo una matriz M con valores positivos y negativos. Estoy tratando de mostrar como una tabla en la aplicación brillante, utilizando el paquete DT. Me gustaría mostrar la matriz con diferentes colores. Números positivos en números rojos y negativos (por ejemplo).

Hasta el momento, solo puedo agregar colores de una a una. Pero quiero agregar colores de esta manera: if matrix_values> 0 "color1", if matrix_values ​​<0 "color2".

 M <- matrix(c(-3:2), 3) # The matrix is more complex and it''s created in a
reactive environment. Here is only an example
M_out <- reactive({
DT::datatable(M()) %>%
formatStyle(
columns = c(1:7),
backgroundColor = styleEqual(c( 0, 1), c("green", "red")
))
})
output$X_table_2 <- DT::renderDataTable(M_1X2())

Gracias !!

Answer 1

Puede usar DT::styleInterval lugar de DT::styleEqual

library(DT) # for datatable, formatStyle, styleInterval
library(dplyr) # for %>%
myDT <- matrix(c(-3:2), 3) %>% datatable %>%
formatStyle(
columns = 1:2,
backgroundColor = styleInterval(
cuts = c(-.01, 0),
values = c("red", "white", "green")
)
)
myDT

Ejecutar estas líneas en RStudio mostrará la matriz formateada en el panel del visor. Si no está utilizando RStudio, también puede mostrar la tabla en una aplicación brillante.

library(shiny)
shinyApp(
ui = fluidPage(DT::dataTableOutput(''table''))
server = function(input, output, session){
output$table = DT::renderDataTable({myDT})
}
)