R- 如何将 html 格式添加到与blastula一起使用的表格中？

Question

Blastula 似乎不尊重表格格式化包（如和 ）<style>使用的标签。kableextraformattable

例子：

library(kableExtra)
library(blastula)

dt <- mtcars[1:5, 1:6]

tbl <- dt %>%
  kbl() %>%
  kable_styling()

tbl

compose_email(
  body = md(c(
    "this is my table:",
    tbl
    )))

打印 tbl 时显示此内容

但是打印的时候是这样compose_email

我认为这是因为blastula只是打印表格，并且kableextra格式在其他地方使用class：

tbl <- dt %>%
  kbl("html")

tbl_styled <- tbl %>%
  kable_styling()

as.character(tbl)
as.character(tbl_styled)

这表明打印样式表时唯一的区别是标签<table>：

<table class=\"table\" style=\"margin-left: auto; margin-right: auto;\">

所以我想唯一的方法是编写我们自己的表解析器来将样式内联？除非已经有一个 R 包可以做到这一点？