使用shinysky自定义R闪亮表的颜色

Question

所以，我知道使用rhandsontable包，我可以做这样的事情来为我的表着色：

library(rhandsontable)

DF <- tail(iris,30)

rhandsontable(DF, readOnly = TRUE) %>%
  hot_cols(renderer = "
           function (instance, td, row, col, prop, value, cellProperties) {
           Handsontable.renderers.TextRenderer.apply(this, arguments);
           if (row == col) {
           td.style.background = 'lightgrey';
           } else if (col > row) {
           td.style.background = 'grey';
           td.style.color = 'grey';
           } else if (value < 3) {
           td.style.background = 'pink';
           } else if (value > 3) {
           td.style.background = 'lightgreen';
           }
           }")

但是，这个软件包不允许我做一些我需要的东西，所以在搜索之后，我开始使用shinysky。但是，我无法找到改变表格颜色的方法，就像我在上面的示例中所做的那样。

这是一个极小的闪亮例子：

library(shinysky)

DF <- tail(iris,30)

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

  table <- reactive({DF})
  output$hotable1 <- renderHotable(table(), readOnly = F)

}

ui <- fluidPage(fluidRow(column(8,hotable("hotable1"))))

shinyApp(server=server,ui=ui)

我如何自定义此表中的颜色？

谢谢