R Shiny DT как установить цвет строк, соответствующих критериям

Question

Я искал и видел несколько примеров, но не могу заставить его работать самостоятельно (требуется больше опыта), поэтому некоторая помощь будет потрясающей - я использую R shiny App и отображения таблицы
Пример:

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

1. Я хочу сделать строки a1 и a2 с цветом фона (фиолетовый) и a3 (синий) - эти данные есть только три категории (a1, a2 , a3), но 400 строк - см. текущий код ниже

2. в настоящее время моя таблица данных загружает по умолчанию 10 строк - как я могу установить параметр для 25 строк по умолчанию.

   выход $ туЬаЫе < - DT :: renderDataTable ({ прогноз%>% фильтр (grepl (ToUpper (вход $ 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"))) 
    ) 
    } 
) 

Есть много примеров для укладки here