Как совместить белый фон таблицы с styleColorbar столбца в datatable?

Question

Я знаю, как отформатировать фон данных для белого цвета:

formatStyle(names(mtcars), background = '#fff')

и как добавить styleColorbar, как видно из демонстрационного кода ниже, но вместе они терпят неудачу.Как совместить оба?Теперь я получаю цветные полосы, но снова бело-синий чередующийся фон для целевого столбца ...

datatable(mtcars, escape=FALSE , rownames = F,
          options = list(dom = 't', 
                         pageLength = 100)) %>%
    formatStyle(names(mtcars), background = '#fff') %>% formatStyle('cyl',
                                                                         background = styleColorBar(range(mtcars$cyl), '#339fff'),
                                                                         backgroundSize = '98% 88%',
                                                                         backgroundRepeat = 'no-repeat',
                                                                         backgroundPosition = 'center')

Answer 1

Спасибо авторам пакета DT на github: Это один из способов сделать это

datatable(
  mtcars, escape=FALSE , rownames = F,
  options = list(dom = 't', pageLength = 100),
  callback = JS("tmp = table.$('tr').css('background-color', '#fff');")
) %>%
  formatStyle(
    'cyl',
    background = styleColorBar(range(mtcars$cyl), '#339fff'),
    backgroundSize = '98% 88%',
    backgroundRepeat = 'no-repeat',
    backgroundPosition = 'center'
  )