Question

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

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

我想用背景颜色（紫色）和a3（蓝色）渲染行a1和a2 - 这个数据只有3个类别（a1，a2，a3）但是400行 - 请参阅下面的当前代码
目前我的数据表加载默认的10行 - 默认情况下，如何设置25行的选项。

输出$ mytable＆lt; - DT :: renderDataTable（{ 预测％＆gt;％ filter（grepl（toupper（输入$ id_select），Name））％＆gt;％安排（姓名，职务） }）

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

的例子

R Shiny DT如何设置符合条件的行的颜色

1 个答案: