Запретить создание Rplot.emf, когда функция использует ggsave()

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 в папке проекта.

Как мне предотвратить создание этого файла?