自定义css使整个表格居中
此表使用一些css在Flag列中创建彩色正方形。 如果没有css,整个表将居中(良好)。使用css时,整个表是左对齐的(错误) 如何在保持css的同时使表格居中 Rmarkdown自定义css使整个表格居中,css,r,r-markdown,Css,R,R Markdown,此表使用一些css在Flag列中创建彩色正方形。 如果没有css,整个表将居中(良好)。使用css时,整个表是左对齐的(错误) 如何在保持css的同时使表格居中 Rmarkdown title: Ctr Test author: '' date: '2020-09-17' slug: ctr-test categories: [] tags: [] {r,echo=FALSE,message=FALSE,warning=FALSE} 库(“可反应”) 命令 {css, echo=FALSE
title: Ctr Test
author: ''
date: '2020-09-17'
slug: ctr-test
categories: []
tags: []
{r,echo=FALSE,message=FALSE,warning=FALSE}
库(“可反应”)
命令
{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)
})
))