一模一样的在表格中画迷你图（sparkline）的代码，在 一份 RMD 文档中执行后能正常看到图，可是 knit 生成 html 文件后图却消失了。
更奇怪的是，新建一个RMD文档，把代码原封不动地复制粘贴过去，knit 生成 html 文件后又能正常看到图。
可复现的代码如下：
library(DT)
library(data.table)
library(sparkline)
dt <- data.table(
type = rep(c('NO', 'YES'), 20),
value = sample(2000:5000, 40)
)
dt.DT1 <- dt[order(type), .(
sparkline1 = as.character(htmltools::as.tags(
sparkline(
value,
type = "line", # 面积图
width = 100, # 指定迷你图的宽度
height = 100 # 指定迷你图的高度
)
))
), keyby = .(type)]
datatable(dt.DT1, escape = FALSE) |> spk_add_deps()
