r - 是否可以在 R Shiny 中使用多个 DT formatStyle 函数？

Question

我想知道是否可以在 R 闪亮中使用多个 DT::formatStyle 函数。

我想实现颜色（分别为正数和负数的绿色和红色）以及突出显示最后一行以显示列总和。

这是我正在尝试使用的代码，但是我收到一个错误：

 DT::formatStyle(
      columns = cols,
      color = DT::styleInterval(0, c('red', 'green'))

 ) %>%
 DT::formatStyle(
       'metric',
       target = 'row',
       backgroundColor = styleEqual('Total', 'gray'))

Answer 1

是的，甚至在github 页面文档?formatStyle中也有示例

library(dplyr)
library(DT)

datatable(mtcars) %>%
  formatStyle("am", color = styleEqual(1, "red")) %>%
  formatStyle("cyl", color = styleInterval(7, c("green", "blue")))

如果您可以提供测试数据和完整的最小工作示例，帮助会更容易。