Question

我有一个data.table，有3列。

trial <- matrix(c(3,4,1,2,1,2,4,2,5), ncol=3)
colnames(trial) <- c('value', 'min', 'max')
trial.table <- data.table(trial)

使用R（Shiny和DT），我想根据最小和最大范围更改列值的字体颜色。

我正在尝试使用它：

datatable(trial.table, rownames = FALSE) %>%
formatStyle('value', color = styleInterval(c(trial.table$min,trial.table$max), c('orange', 'green', 'red')))

但是它让我回来了：

Error in styleInterval(c(trial.table$min, trial.table$max), c("orange",  : 
  length(cuts) must be equal to length(values) - 1

结果应为：

专栏＆＃34;价值＆＃34;值为：3为绿色，4为红色，1为橙色。

如果相反c(trial.table$min,trial.table$max)我们使用数字 - c(1,2) ...

，则有效

非常感谢！

Answer 1

解决方案是使用rowCallback而不是styleInterval。

var arr = [AnyObject]()
let car = Car()
let bike = Bike()
arr.append(car)
arr.append(bike)

使用DT更改基于其他列的行颜色 - 闪亮 - R

1 个答案: