Question

我有一个使用ReporteRs包生成的FlexTable，我想将其导出为.html。

当我在RStudio中将表打印到查看器时，我可以通过单击“导出”并选择“另存为网页”来执行此操作。

我如何在脚本中复制此操作？

我不想编辑html文档或生成报告，因为目前我只想为我的每个草稿表单独的文件，我可以与协作者共享（但格式很好，所以它们很容易阅读）。

我已经尝试了# 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()函数并确实生成了一个.html文件，但缺少所有格式（它只是纯文本）。

这是一个MWE：

<div class="row">
  <div id="services-component-container" class="col-md-8 col-md-offset-2" style="padding: 0;">
    <svg id="ny-trakt-container" style="height: 100%; width: 100%; margin: 0 auto; padding: 0;" preserveAspectRatio="xMinYMin" viewBox="0 0 200 100">
      <defs>
        <clipPath id="clip">
          <polygon points="0,20 48.5,15 48.5,45 0,31" />
          <polygon points="0,33 0,80 48.5,85 48.5,47" />
      </clipPath>
      </defs>
      <polygon class="state-1" points="0,20 48.5,15 48.5,45 0,31" style="fill:#ceffc9;" />
      <polygon class="state-1" points="0,33 0,80 48.5,85 48.5,47" style="fill:#ceffc9;" />
      <circle id="ripple-shape" cx="10" cy="20" r="5" clip-path="url(#clip)"/>
    </svg>
  </div>
</div>

上面介绍的两种方法的问题是它们输出的表没有任何格式（没有边框等）。

但是，在RStudio中手动选择“导出”和“另存为网页”会将FlexTable呈现为具有完整格式的html文件。这是为什么？

Answer 1

这对我有用：

{{1}}

R将FlexTable保存为脚本中的html文件

1 个答案: