valor una según segun que poner palabra otra hacer formato filas dependiendo cumple condicional condicion con como colorear color celda cambie cambiar automaticamente aplicar r shiny shinyapps dt

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 (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}) } )

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 !!