R在脚本中将FlexTable另存为html文件

Question

我有一个随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文件。 为什么是这样？

Answer 1

这对我有用：

writeLines(as.html(myflex), "MyFlexTable.html")