将条件行边框添加到 R 中的数据表 DT
Adding conditional row borders to datatables DT in R
我正在尝试在数据中间添加行边框table 以更清楚地分隔信息，但到目前为止还没有成功。让我们以 mtcars datatable 为例，辅助向量将定义我想要边框的行，例如 aux=c(3,6,8)
如何用这个 aux 向量定义行边界？是否可以使用 formatStyle 之类的函数？最后的 table 应该是这样的： final table
谢谢！
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"))
我正在尝试在数据中间添加行边框table 以更清楚地分隔信息，但到目前为止还没有成功。让我们以 mtcars datatable 为例，辅助向量将定义我想要边框的行，例如 aux=c(3,6,8)
如何用这个 aux 向量定义行边界？是否可以使用 formatStyle 之类的函数？最后的 table 应该是这样的： final table
谢谢！
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"))