Используя пакет R Reactable и RMarkdown, я хочу создать таблицу где столбец имеет зеленый квадрат для статуса ‹= 2 и красный квадрат в противном случае.
Если я попытаюсь отформатировать столбец состояния на основе его значения, он создаст неокрашенный квадрат. См. Изображение.
В файле .Rmd ниже я могу заставить CSS сделать цветной квадрат в столбце, только если столбец не имеет значений.
Подводя итог, в столбце «Состояние» я бы хотел цветные квадраты (зеленый квадрат для состояния ‹= 2 и красный квадрат в противном случае) без видимых чисел, выровненных по левому краю с названием столбца« Состояние ».
Столбец Flag нужен только для того, чтобы показать, что CSS работает.
Файл RMarkdown
title: Conditional Colored Square in Reactable Table
author: IX
date: 'September 5, 2020'
slug: test
categories: []
tags: []
output:
html_document
---
```{css, echo=FALSE}
.row {
display : flex;
align-items : center;
margin-bottom: 15px;
}
.box {
height: 20px;
width: 20px;
border: 1px solid black;
margin-right : 5px;
}
.red {
background-color: red;
}
.green {
background-color: green;
}
.blue {
background-color: blue;
}
```
```{r, echo=FALSE, message=FALSE, warning=FALSE}
library("reactable")
orders <- data.frame(
Order = 2300:2304,
Created = seq(as.Date("2019-04-01"), by = "day", length.out = 5),
Customer = sample(rownames(MASS::painters), 5),
Status = c(1, 2, 3, 4, 5),
Flag = c("", "", "", "", "")
)
reactable(orders, columns = list(
Status = colDef(cell = function(value) {
if (value <= 2) {
class <- paste0("tag box green", tolower(value))
htmltools::div(class = class, value)
}
}),
Flag = colDef(cell = function(value) {
class <- paste0("tag box green", tolower(value))
htmltools::div(class = class, value)
})
))