我对 R 比较陌生,正在尝试使用 Shiny 包。 我有一些与此非常相似的东西:http://shiny.rstudio.com/gallery/basic-datatable.html这样我们就可以使用那里的代码。
我想添加的是一些单元格/行会突出显示(彩色背景或彩色字体)。如果你看一下这个例子,我希望如果汽车有 8 个或更多气缸,则行/单元格(整行或只是单元格,没关系)为红色,如果有 6 个或更少,则为黄色,如果有,则为绿色有 4 个或更少。
有什么方法可以用Shiny包来做到这一点吗?我尝试过使用 ShinyBS,但它没有任何作用。
我也看过这个:http://shiny.rstudio.com/gallery/datatables-demo.html 。已排序的列在这里获得新的颜色。这至少有点符合我想要的,所以我认为 CSS 可能是答案,但还没有取得任何进展。
希望大家帮忙!
最佳答案
不创建新列:
jscode <- "
value <= 4 ? 'green' : (value <= 6 ? 'yellow' : (value >= 8 ? 'red' : 'white'))
"
datatable(mtcars) %>% formatStyle(
"cyl", target = "row",
backgroundColor = JS(jscode))
或使用函数styleInterval
:
datatable(mtcars) %>% formatStyle(
"cyl", target = "row",
backgroundColor = styleInterval(c(4, 6, 7), c("green", "yellow", "white", "red")))
关于css - R:突出显示 Shiny 的数据表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24736956/