如何在闪亮的应用程序中为前六个和lastsix行着色？

Question

假设我有18行的data.table：

wrap_content

我想为前六行设置绿色，最后6行我想要用红色着色。

如何在闪亮的应用中执行此操作？

Answer 1

您可能需要DT包来显示表并添加一个 rowCallback完成行样式：

library(DT)

df <- datasets::mtcars[1:18,]

DT::datatable(df, 
              options = list(
                  pageLength = 25,
                  rowCallback = JS('function(row, data, index, rowId) {',
                                   'console.log(rowId)',
                                   'if(rowId < 6) {',
                                   'row.style.backgroundColor = "red";',
                                   '}',
                                   'if(rowId >= ', nrow(df) - 6,') {',
                                   'row.style.backgroundColor = "green";',
                                   '}',
                                   '}')
              )
)

要在Shiny应用中使用DT::renderDataTable()中的server和DT::dataTableOutput()中的ui