r - R、gt をメタファイルとしてエクスポートする方法

Question

私はこのようなデータテーブルを持っています:

library(stringi)
library(tidyverse)
library(data.table)  

MWE <- 
  data.table("Zone"=stri_rand_strings(9, 10, pattern = "[A-Za-z0-9]")) %>%
  .[,paste0("Var",2:11):= round(rnorm(9,2,4),1)]

そこから素敵なテーブルを出力したいです。私はパッケージを通じて満足のいく何かをすることができましたがgt、必要に応じて切り替えることができます

library(gt)
MWE_Table <-  gt(MWE)%>%
  tab_spanner(label="PIB", columns = c(2:7))%>%
  tab_spanner(label="IPC", columns = c(8:11))%>%
  tab_style(
    style = list(
      cell_text(weight = "lighter", style="italic")),
    locations = cells_body(columns = c("Var3","Var5","Var7","Var9","Var11"))) %>% 
  tab_style(
    style = list(
      cell_text(weight = "normal", style="italic")),
    locations = cells_body(columns = c("Var3","Var5","Var7","Var9","Var11"),rows = (Zone == "France"))) %>%   
  cols_label(Zone="",
             Var2=Annee1, Var3="(rev)",
             Var4=Annee2, Var5="(rev)",
             Var6="Cumul", Var7="(rev)",
             Var8=paste0("   ",Annee1), Var9="(rev)",
             Var10=Annee2, Var11="(rev)")%>%
  cols_align(., align = c("center"), columns = c(2:11)) %>%
  tab_header(
    title = md(paste("Title ")),
    subtitle = md("Subtitle")
  )
              

これにより、次の表が得られます。

ベクターグラフィックとしてエクスポートしたいのですが、通常使用するメタファイルオプションがオプションとしてリストされていません:

• このオプションを追加するために何かできますか?
• それがgtサポートされていない場合、メタファイルとしてエクスポートできるテーブルを生成するための代替手段はどれですか?