这是我正在使用的数据表的一个最小示例:
dt <- DT::datatable(data.frame('V1' = c(3,2,-1), 'V2' = c(3,-1,-7), 'V3' = c(3, -5,-12)))
我想将所有负值的字体颜色更改为红色。我尝试过 styleEquals 和 styleInterval,但我没有找到设置条件测试的方法,例如值 < 0。
我尝试过 JS 函数,但我对 javascript 不太熟悉,并且此代码不会生成表格:
dt %>% formatStyle(columns = 1:3, color = JS("value < 0 ? 'red'"))
该表将在一个 Shiny 的应用程序中呈现。
最佳答案
像这样:
dt %>% formatStyle(1:3, color = styleInterval(0, c("red", "black")))
关于r - 通过 R 中的值有条件地更改 DT 字体颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/64700460/