R/jpdf_devoff.R

In duytpm16/qtl2utils: Modification of QTL2 Plots

jpdf_devoff = function(pdfname, mypattern, ...) {
  dev.off()
  require(magick)
  gpat = paste0(mypattern, ".*\\.jpeg")
  jpegs = list.files(path = tempdir(), pattern = gpat, full.names = TRUE)
  pdfs <- image_convert(image = image_read(jpegs), format = 'pdf')
  image_write(pdfs, pdfname, format = 'pdf', ...)
}