0

我编写了一个函数作为包装器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 的文件。

如何防止此文件生成?

4

0 回答 0