r - 防止在使用 ggsave() 的函数时生成 Rplot.emf

Question

我编写了一个函数作为包装器ggsave()，将绘图保存为 EMF（用于 PowerPoint）。

emf_save <- function(ggp) {
  filename <- glue::glue("{here()}",
                         "/",
                         "{deparse(substitute(ggp))}.emf")
  
  ggsave(
    plot = ggp,
    filename = filename,
    height = 5.2,
    width = 11.5,
    units = "in",
    device = devEMF::emf()
  )
  
  dev.off()
  print(paste0("Saved ", filename))
}

它接受一个 ggplot2 对象并使用该对象的名称保存一个 EMF 文件。问题是，每当我调用这个函数时，它还会在项目文件夹中保存一个名为 Rplot.emf 的文件。

如何防止此文件生成？

标签： rggplot2ggsave