r - 更改闪亮 DT 表中的迷你图颜色

Question

下面是在 R 中开发迷你图的代码。想检查我们是否可以更改颜色。我的意思是负值是黑色，正值是红色

library(shiny)
library(DT)
library(data.table)
library(sparkline)

## Create demo data sets
my_mtcars <- data.table(mtcars, keep.rownames = TRUE)
names(my_mtcars)[1] <- 'car_id'

set.seed(0)
data_for_sparklines <- data.table(car_id = rep(my_mtcars$car_id, 5),
                                  category = 1:5,
                                  value = c(runif(80),-runif(80)))

sparkline_html <- data_for_sparklines[, .(sparkbar = spk_chr(value, type = 'bar',barColor = "black")), by = 'car_id']
my_mtcars <- merge(my_mtcars, sparkline_html, by = 'car_id')

spk_add_deps(datatable(my_mtcars, escape = FALSE))

标签： r