R/pdf_to_emf.R

In michaeldorman/geobgu: Utility Functions and Datasets for the Department of Geography at BGU

#' Convert PDF to EMF
#'
#' Convert a PDF file to an EMF file. Requires \code{inkscape} command-line utility.
#'
#' The function creates an EMF file at the same location where the PDF is.
#'
#' @param filename A PDF file name or file path
#'
#' @return NULL
#'
#' @export
#'
#' @examples
#' \dontrun{
#' pdf_to_emf(filename = "~/test.pdf")
#' }

pdf_to_emf = function(filename) {
  input = normalizePath(filename)
  output = gsub("\\.pdf$", "\\.emf", input)
  expr = paste0("inkscape ", input," --export-type=emf -o ", output)
  system(expr)
}