自定义css使整个表格居中

自定义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

此表使用一些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}
 .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)
  })  
))