2

所以，我知道使用 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)

我怎样才能自定义这张桌子的颜色？

谢谢

4

0 回答 0