R datatable цвет фона строки с двумя столбцами, отвечающими условиям

Question

Я пытаюсь раскрасить строку в Datatable, когда два столбца соответствуют определенным условиям.Я создал переменную 'dummy' для этого с помощью функции formatStyle, но не хочу, чтобы столбец 'dummy' был виден.

iris %>% 
  mutate(condition = (Sepal.Length < 5.0 | Petal.Length < 3.0) * 1) %>% 
  datatable() %>%
  formatStyle("condition", target = 'row', 
              backgroundColor = styleEqual(c(1, 0), c('red', 'white')))

Я пытался сделать то же самое с использованием javascript, но это не работает (таблица не отображается):

script <- "
function( row, aData ) {
      if ( parseFloat(aData[0]) < 5.0 && parseFloat(aData[2]) < 3.0)
        $('td:eq(x), row).css('background-color', '#FC4A4A');
      else 
        $('td:eq(x), row)css('background-color', '#F2E8E8');
  }
"

iris %>% 
  datatable(options = list(rowCallback = JS(script)))

Answer 1

Благодаря этому я нашел решение:

iris %>% 
  mutate(condition = (Sepal.Length < 5.0 | Petal.Length < 3.0) * 1) %>% 
  datatable(list(columnDefs = list(list(visible = FALSE, targets = c(6))))) %>% #hiding the 6th column
  formatStyle("condition", target = 'row', 
              backgroundColor = styleEqual(c(1, 0), c('red', 'white')))