R閃亮：基於Lab色彩空間的色彩單元背景

Question

我有一個包含Lab色彩空間值的數據框。這裏是一個例子：

L*  a*  b*  color 
80  25  -30  NA 
75  55  55  NA 
30  0  25  NA 
10  -20 30  NA 
55  15  20  NA 
60  43  18  NA 
... ... 

這裏有1000多條記錄。我想根據L *，a *，b *列中的Lab顏色空間值爲列顏色着色單元格。我沒有Jquery的背景。我在這裏找到一個例子：R Shiny: table conditional formatting within renderUI但我不知道如何修改Jquery腳本。任何人都可以幫助我？謝謝！

Answer 1

你可以做這樣的事情，如果你要的顏色由RGB色彩空間，而不是：

library(shiny) 

color.min <- 0 
color.max <- 250 
n <- 100 

# Simulate data 
random.data <- data.frame("l"=runif(n,min=color.min,max=color.max), 
          "a"=runif(n,min=color.min,max=color.max), 
          "b"=runif(n,min=color.min,max=color.max), 
          "color"=rep(NA,n)) 

server <- shinyServer(function(input, output, session) { 

    observe({ 
    output$table <- renderTable({ 
     random.data 
    }) 
    }) 
}) 


ui <- shinyUI(fluidPage(
    # Add jQuery script 
    tags$head(
    tags$script(
     HTML(" 
      function color(){ 
      if(document.querySelector('#table')!=null){ 
       // Select each table row in an array and loop over that with jQuery each 
       $('#table > table > tbody').find('tr').each(function(index, value) { 
       // Get values for rgb and round to integers 
       var vals = []; 
       $(this).children('td').slice(1, 4).each(function(index, value) { 
        vals[index] = parseInt($(this).html()); 
       }); 
       // Color 5:th child the selected rgb color 
       $(':nth-child(5)',this).css('background','rgb('+String(vals[0])+','+String(vals[1])+','+String(vals[2])+')'); 
       }) 
      } 
      else{ 
       setTimeout(function() { color(); }, 100); 
      } 
      } 
      color(); 
      ") 
    ) 
), 
    fluidRow(
    column(10, uiOutput("table")), 
    column(2,actionButton("color","color")) 
) 
)) 

shinyApp(ui = ui, server = server)