以编程方式保存eCharts4r图表

如何解决以编程方式保存eCharts4r图表

我可以制作像这样的eCharts4r量规

库（echarts4r）图书馆（magrittr）

CA_gauge <- e_charts() %>% 
  e_gauge(4.1,"INCIDENCE",min=0,max=20,axisLine = list(
            linestyle = list(
              color=list(
                c(1.5/20,"green"),c(3/20,"yellow"),c(1,"red")
              )
            ))) %>% 
  e_title("CA")

print(CA_gauge)

但是我还没有找到一种将输出保存到文件中的好方法，以便以后可以在gt表中使用它。我能找到的最好的方法是将“ saveAsImage”添加到输出中

e_charts() %>% 
      e_gauge(4.1,axisLine = list(
                linestyle = list(
                  color=list(
                    c(1.5/20,"red")
                  )
                ))) %>% 
        e_toolBox_feature(feature = c("saveAsImage"))

这会在RStudio查看器的右上方添加一个saveAs按钮

但是我真正想做的只是将图像（显然没有动画）以代码形式保存到tiff / jpg / png图像文件中。

我尝试使用标准设备，例如

tiff("CA_gauge.tif",sep=""),res=600,compression = "lzw",height=5,width=15,units="in")
print(CA_gauge)
dev.off()

但是那没有做到。有什么建议吗？