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")