Bedingte Formatierung in DT-Daten Tabelle R Shiny

Question

Ich habe eine Tabelle mit 5 Spalten und 1. Spalte als Zeichen und anderen vier als numerisch. Ich verwende DT Data Table, um dasselbe in Shiny App anzuzeigen. Jetzt muss ich jeden der vier Spalten für jede Zeile und Farbcode die Zeile Zelle, die maximalen Wert hat. Auf der Suche nach Möglichkeiten, das Gleiche zu tun. Hatte einen Blick auf diesen Link StylingCells aber alle Spalten sind hier numerisch.

-Code

entity <- c('entity1', 'entity2', 'entity3') 
value1 <- c(21000, 23400, 26800) 
value2 <- c(21234, 23445, 26834) 
value3 <- c(21123, 234789, 26811) 
value4 <- c(27000, 23400, 26811) 
entity.data <- data.frame(entity, value1, value2, value3, value4) 

header <- dashboardHeader() 
sidebar <- dashboardSidebar() 
body <- dashboardBody(DT::dataTableOutput("entity.dataTable")) 

shinyApp(
    ui = dashboardPage(header, sidebar, body), 
    server = function(input, output) { 
    output$entity.dataTable <- renderDataTable({ 
     DT::datatable(
     entity.data, 
     selection = "single", 
     filter = 'bottom', 

     extensions = c('Buttons', 'ColReorder', 'FixedHeader', 'Scroller'), 
     rownames = FALSE, 
     options = list(
      dom = 'Bfrtip', 
      searching = T, 
      pageLength = 25, 
      searchHighlight = TRUE, 
      colReorder = TRUE, 
      fixedHeader = TRUE, 
      filter = 'top', 
      buttons = c('copy', 'csv', 'excel', 'print'), 
      paging = TRUE, 
      deferRender = TRUE, 
      scroller = TRUE, 
      scrollX = TRUE, 
      scrollY = 550 

     ) 

    ) 

    }) 
    } 
) 

Answer 1

Hier ist meine Lösung für Ihr Problem:

library(shinydashboard) 
library(DT) 
library(magrittr) 

entity <- c('entity1', 'entity2', 'entity3') 
value1 <- c(21000, 23400, 26800) 
value2 <- c(21234, 23445, 26834) 
value3 <- c(21123, 234789, 26811) 
value4 <- c(27000, 23400, 26811) 
entity.data <- data.frame(entity, value1, value2, value3, value4) 

# Create a vector of max values 
max_val <- apply(entity.data[, -1], 1, max) 

header <- dashboardHeader() 
sidebar <- dashboardSidebar() 
body <- dashboardBody(DT::dataTableOutput("entity.dataTable")) 

shinyApp(
    ui = dashboardPage(header, sidebar, body), 
    server = function(input, output) { 
    output$entity.dataTable <- renderDataTable({ 
     DT::datatable(
     entity.data, 
     selection = "single", 
     filter = 'bottom', 
     extensions = c('Buttons', 'ColReorder', 'FixedHeader', 'Scroller'), 
     rownames = FALSE, 
     options = list(
      dom = 'Bfrtip', 
      searching = T, 
      pageLength = 25, 
      searchHighlight = TRUE, 
      colReorder = TRUE, 
      fixedHeader = TRUE, 
      filter = 'top', 
      buttons = c('copy', 'csv', 'excel', 'print'), 
      paging = TRUE, 
      deferRender = TRUE, 
      scroller = TRUE, 
      scrollX = TRUE, 
      scrollY = 550 
     ) 
    ) %>% # Style cells with max_val vector 
     formatStyle(
     columns = 2:5, 
     backgroundColor = styleEqual(levels = max_val, values = rep("yellow", length(max_val))) 
    ) 
    }) 
    } 
) 

Also, was Sie tun müssen, um einen Vektor von max Werte zu schaffen. Dann verwenden Sie es in der Hilfsfunktion styleEqual() innerhalb formatStyle() wie im obigen Code gezeigt.