r - 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)

このテーブルの色をカスタマイズするにはどうすればよいですか?

ありがとうございました