我有一个使用 ReporteRs 包生成的 FlexTable，我想将其导出为 .html。
当我将表格打印到 RStudio 中的查看器时，我可以通过单击“导出”并选择“另存为网页”来执行此操作。
我将如何在我的脚本中复制此操作？
我还不想编写 html 文档或生成报告，因为目前我只想为我的每个草稿表提供单独的文件，我可以与合作者共享（但格式很好，因此易于阅读）。
我已经尝试过这个as.html函数，它确实生成了一个 .html 文件，但是所有格式都丢失了（它只是纯文本）。
这是一个MWE：
# load libraries:
library(data.table)
library(ReporteRs)
library(rtable)
# Create dummy table:
mydt <- data.table(id = c(1,2,3), name = c("a", "b", "c"), fruit = c("apple", "orange", "banana"))
# Convert to FlexTable:
myflex <- vanilla.table(mydt)
# Attempt to export to html in script:
sink('MyFlexTable.html')
print(as.html(myflex))
sink()
# Alternately:
sink('MyFlexTable.html')
knit_print(myflex)
sink()
上面演示的两种方法的问题是它们输出的表格没有任何格式（没有边框等）。
但是，在 RStudio 中手动选择“导出”和“另存为网页”会将 FlexTable 呈现为具有完整格式的 html 文件。为什么是这样？