有没有一种方法可以将CSS样式添加到flextable中（用于在RStudio /浏览器中以html格式呈现）？

Question

许多浏览器以及RStudio html查看器的默认行为都是空白：normal，它折叠表中的空白序列。所以下面的代码：

library(flextable)
aaa<-data.frame()
aaa[1,1]<-"aaa"
aaa[2,1]<-"     a     aaa"
ft <- flextable(aaa)
ft <- align_text_col(ft, align = "left")
ft <- align_nottext_col(ft, align = "left")
ft <- border(ft, border= fp_border(color = "black") )
ft

表，其中删除了“ a”之前的空格，并将“ a”之后的空格缩小为一个空格。通过添加CSS样式

可以避免这种情况

white-space:pre

到生成的html。这可以在RShiny应用程序中实现，但是我没有找到在RStudio中执行此操作的方法。有什么线索吗？ 预先感谢。

Tomas