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

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

Blastula 似乎不尊重 <style> 和 kableextra 等表格格式包使用的 formattable 标签。

示例：

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)

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

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

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