R语言中formattable生成的表格无法完整导出，该如何保存？

你生成的是基于htmlwidget的交互式控件，内置的sparkline迷你图由JS动态渲染，常规导出工具无法捕获动态生成的图表元素，因此会出现内容缺失，可参考以下解决方案：

• 方案1：导出为独立HTML文件
  使用htmlwidgets包的saveWidget函数可将所有表格样式、JS依赖、迷你图打包为单个HTML文件，后续可直接用浏览器打开查看，也可通过浏览器打印功能转存为PDF。
  示例代码：

  library(htmlwidgets)
  # 先将生成的表格存储为变量
  output_table <- test1 %>% 
    group_by(Name) %>%
    summarise("Weekly_trend" = spk_chr(Total))  %>%
    left_join(data) %>%
    formattable() %>%
    as.datatable() %>%
    spk_add_deps()
  # 导出为单文件HTML
  saveWidget(output_table, "完整带迷你图表格.html", selfcontained = TRUE)
  

  selfcontained = TRUE参数会将所有资源打包到单个HTML文件中，无需额外依赖文件夹，方便分享传输。
• 方案2：导出为高清静态图片
  使用webshot2包渲染交互式控件为静态图片，可完整保留所有表格内容和迷你图，支持导出为PNG、JPG、PDF等格式。
  示例代码：

  # 首次使用需先安装依赖
  # install.packages("webshot2")
  # webshot2::install_chromium()
  library(webshot2)
  # 先存为临时HTML文件
  saveWidget(output_table, "temp_table.html", selfcontained = TRUE)
  # 导出为高清PNG
  webshot("temp_table.html", "完整表格导出.png", vwidth = 1200, vheight = 800, zoom = 2)
  

  可通过调整vwidth/vheight适配表格尺寸，调整zoom参数控制导出图片的清晰度，zoom值越高图片越清晰。
• 方案3：导出到Word/PPT等办公文档
  先按方案1导出HTML后用浏览器打开，全选内容直接粘贴到Word/PPT中，大部分情况下表格样式和迷你图都会被保留为静态内容；如果粘贴后样式异常，也可以先按方案2导出为图片，再插入到办公文档中。

内容的提问来源于stack exchange，提问作者akang