向R中的数据表DT添加条件行边界

Question

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

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

谢谢！

Answer 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"))