R Shiny DT如何設置符合條件的行的顏色

Question

我已經搜索並看到了一些例子，但無法讓它在我自己的工作（更多的經驗需要），所以一些幫助將是驚人的 - 我使用R閃亮的應用程序和呈現的表
實施例：

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

1. 我想渲染行a1和a2具有背景顏色（紫色）和A3（藍色） - 這個數據僅具有3個類別（A1，A2 ，a3）但400行 - 請參閱下面的當前代碼

2. 目前我的數據表加載了10行的默認值 - 我怎麼可以設置默認25行的選項。

   輸出$ MYTABLE < - DT :: renderDataTable（{ 天氣預報％>％ 過濾器（grepl（TOUPPER（輸入$ id_select），名稱））％>％ 安排（姓名，職務） }）

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"))) 
    ) 
    } 
) 

有很多的例子爲造型here