r - 基于 rhandsontable 中的单元格值的颜色行

Question

我正在努力根据单元格值在我 Shiny 的应用程序中为整行 rhandsontable 着色。

在下面的示例中，我想格式化整行而不是一个单元格。

library(rhandsontable)

DF = data.frame(val = 1:10, bool = TRUE, big = LETTERS[1:10],
                small = letters[1:10],
                dt = seq(from = Sys.Date(), by = "days", length.out = 10),
                stringsAsFactors = FALSE)

col_highlight = 2
row_highlight = c(5, 7)

rhandsontable(DF, width = 550, height = 300) %>%
  hot_cols(renderer = "
               function (instance, td, row, col, prop, value, cellProperties) {
               Handsontable.renderers.TextRenderer.apply(this, arguments);

               if(value == 'F' | value == 'f') {
               td.style.background = 'pink';
               } else if(value == 'J' | value == 'j') {
               td.style.background = 'lightgreen';
               } else if(value == 'X' | value == 'x') {
               td.style.background = 'lightblue'}

               }")

Answer 1

渲染器的想法是分别应用于所有单元格，因此单元格值不能同时为'F'和'f'。对于每一行，您必须选择第 2 列以检查值是否为“F”，并选择第 3 列以检查值是否为“f”。

rhandsontable(DF, width = 550, height = 300) %>%
hot_cols(renderer = "
           function (instance, td, row, col, prop, value, cellProperties) {
           Handsontable.renderers.TextRenderer.apply(this, arguments);

           if(instance.getData()[row][2] == 'F' | instance.getData()[row][3] == 'f'){
                td.style.background = 'pink';
           } else if(instance.getData()[row][2] == 'J' | instance.getData()[row][3] == 'j') {
                td.style.background = 'lightgreen';
           } else if(instance.getData()[row][2] == 'X' | instance.getData()[row][3] == 'x') {
                td.style.background = 'lightblue'
           }
        }")