Добавление границ условных строк в таблицы данных DT в R

Question

Я пытаюсь добавить границы строк в середине таблицы данных, чтобы более четко отделить информацию, но пока не повезло.Давайте возьмем mtcars datatable в качестве примера и вспомогательный вектор, который будет определять строки, где я хочу границы, например, aux=c(3,6,8)

Как я могу определить границы строк с этим вектором aux?Можно ли сделать с такими функциями, как formatStyle?Финальный стол должен выглядеть примерно так: Финальный стол

Спасибо!

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