将条件行边框添加到 R 中的数据表 DT

【问题标题】：Adding conditional row borders to datatables DT in R将条件行边框添加到 R 中的数据表 DT
【发布时间】：2019-02-28 14:53:32
【问题描述】：

我正在尝试在数据表中间添加行边框以更清楚地分隔信息，但到目前为止还没有任何运气。让我们以mtcars 数据表为例和一个辅助向量，它将定义我想要边框的行，例如aux=c(3,6,8)

如何使用aux 向量定义行边框？是否可以使用 formatStyle 之类的功能？决赛桌应该是这样的：final table

谢谢！

【问题讨论】：

标签： r datatables dt

【解决方案1】：

library(DT)

dat <- mtcars
aux <- c(3,6,8)
dat$hiddenColumn <- 0
dat$hiddenColumn[aux] <- 1

datatable(dat, 
          options = list(
            columnDefs = list(
              list(visible = FALSE, targets = ncol(dat))
            )
          )) %>%
  formatStyle(0:ncol(dat), valueColumns = "hiddenColumn",
              `border-bottom` = styleEqual(1, "solid 3px"))

【讨论】：

准确！非常感谢