如何在R中保存高质量和抗锯齿的Formattable制成的表？

如何解决如何在R中保存高质量和抗锯齿的Formattable制成的表？

每个人。我在尝试用formattable包保存Cairo表时遇到麻烦，有人可以帮我吗？

我通常使用Cairo包来使用抗锯齿功能保存图，这很好用，但是现在我使用formattable包来自定义表格。

问题是我无法使用Cairo包保存formattable表，这是到目前为止我所做的事情的一个代表：

library(tidyverse)
library(formattable)

# I create my data
data <- iris %>% group_by(Species) %>% summarise(mean_sepal= mean(Sepal.Length),mean_petal= mean(Petal.Length))
# I create the table
formattable(data,align =c("c","c","c"),list(
  `Species` = formatter("span",style = ~ style(color = "grey",font.weight = "bold")),`mean_sepal`= color_tile("#71CA97","#DeF7E9"),`mean_petal`= color_tile("#71CA97","#DeF7E9")
))

# My attempt to save the table
Cairo(600,600,file="plot.png",type="png",bg="white")
formattable(data,"#DeF7E9")
))
dev.off()

但是上面的代码只会保存黑色图像。我也一直在尝试使用PNG函数和CairoPNG函数，但没有成功。

所以，我的问题是：是否可以用formattable包或类似的方法保存Cairo表？

先谢谢！