R сохранить FlexTable как HTML-файл в скрипте

Question

У меня есть FlexTable, созданный с пакетом ReporteRs, который я хотел бы экспортировать как.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")