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

Question

I'm trying to add row borders in the middle of a datatable to separate the information more clearly, but haven't had any luck so far. Lets take mtcars datatable as example and an auxiliar vector which will define the rows where I want the borders, such as aux=c(3,6,8)

How can I define the row borders with this aux vector? Is it possible to do with functions like formatStyle? The final table should be something like this: final table

Thanks!

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