R 闪亮 DT 如何设置与条件匹配的行的颜色

Question

我已经搜索并看到了一些示例，但无法让它自己工作（需要更多的经验），所以一些帮助会很棒 - 我正在使用 R 闪亮的应用程序并渲染表格
例：

A    B    C    D
a1   1    2    3
a2   4    5    6 
a3   7    8    9

1. 我想用背景色（紫色）和 a3（蓝色）渲染 a1 和 a2 行 - 此数据只有 3 个类别（a1，a2，a3）但有 400 行 - 请参阅下面的当前代码

2. 目前，我的数据表默认加载 10 行 - 默认情况下如何设置 25 行的选项。

   output$mytable <- DT：：renderDataTable（{ 预测 %>% filter（grepl（toupper（input$id_select），Name）） %>% 排列（姓名、标题） })

Answer 1

您可以使用

formatStyle更改行的颜色，下面是一个示例：

library(shiny)
library(DT)
set.seed(100)
data <- data.frame(A=sample(c('a1','a2','a3'),10,replace=T),
                   B=1:10,
                   C=11:20,
                   D=21:30)
shinyApp(
  ui = fluidPage(DT::dataTableOutput('tbl')),
  server = function(input, output) {
    output$tbl = DT::renderDataTable(
      datatable(data, options = list(pageLength = 25)) %>%
        formatStyle('A',target="row",backgroundColor = styleEqual(c('a1','a2','a3'),c("purple","purple","blue")))
    )
  }
)

这里有很多样式示例