gt表保存到Word

Question

目前包gtsave中的功能gt不支持MS-Word。我尝试将一个gt对象转换为一个flextable对象，然后另存为 word，但 flextable 不支持 gt 对象。当我只是复制粘贴html到 Word 时，美感就消失了。PNG 也不理想，因为当我调整图片大小时，字体大小与文档字体大小不匹配。有解决方法吗？

# Download package    
devtools::install_github("rstudio/gt")
# Load package     
library(gt)    
# Code        
gt_tbl =  gt(head(mtcars), caption = 'This is table caption') %>%
tab_header(title="Some Title", subtitle="Table 1: Mtcars with gt."
# Export the table
# As word
library(flextable)
 gt_tbl %>%
           flextable::as_flextable() %>%
           flextable::save_as_docx(path = "~")

错误

Error in UseMethod("as_flextable") : 
  no applicable method for 'as_flextable' applied to an object of class "c('gt_tbl', 'list')"