代码之家 › 专栏 › 技术社区 › Shree

R闪亮:在列背景色的顶部获取DT行背景色

dt shiny r css

Shree · 技术社区 · 6 年前

我在用 DT::renderDT formatStyle 但那没用。这里有一个小例子-

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(
    DTOutput("table")
  ),
  server = function(input, output, session) {    
    output$table <- renderDT({
      head(iris) %>%
        datatable() %>%
        formatStyle(c(2,4), backgroundColor = "#fcf4d9") %>%
        formatStyle(1, target = 'row', 
          backgroundColor = styleEqual(c(4.7, 5), c("#fc8a8a", "#fc8a8a"))
          # comment above row and ucomment below row for row color using styleInterval()
          # backgroundColor = styleInterval(c(0, 5, 9), c('blue', 'green', 'red', 'orange'))

        )
    })
  }
)

结果(不正确) styleEqual() -

StyleInterval() -

寻找适用于多行和 样式相等() 或 styleInterval()

0 回复 | 直到 5 年前

Stéphane Laurent 5 年前

下面是一个解决方案:

rowCallback <- c(
  "function(row, data, displayNum, displayIndex, dataIndex){",
  "  if(data[1] === 4.7){",
  "    $(row).find('td').addClass('red');",
  "  }",
  "}"
)

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(
        HTML(
          "table.dataTable tbody tr td.red {background-color: #fc8a8a !important}"
        )
      )
    ),
    DTOutput("table")
  ),
  server = function(input, output, session) {    
    output$table <- renderDT({
      head(iris) %>%
        datatable(options = list(rowCallback = JS(rowCallback))) %>%
        formatStyle(c(2,4), backgroundColor = "#fcf4d9")
    })
  }
)

推荐文章

YunusoviÄ · 我无法用css更改html段落颜色

1 年前

Blake · 无法使用CSS旋转Angular 15中的字体图标

1 年前

Maarten -Monica for president · 将图像放在锚点标记内时调整网格中的图像大小

1 年前

Phil Lucks · 如何制作边界的外半径?

1 年前

roy_meir · 创建自定义下拉式元素

1 年前

Community wiki · 如何为触摸设备优化网站

1 年前

Paras Chandravanshi · 为什么<ul>没有从其父<p>元素继承?

1 年前

tpetzoldt · 如何在有光泽的情况下抑制图像的抗锯齿?

1 年前

boyenec · 反应如何将css样式应用于我从api respose获得的页面的spcifc部分

1 年前

manofconstsorrow · 点击导航项目关闭汉堡菜单

1 年前