search

MatthieuStigler / matPkg

Other
2 stars 0 forks source link

need a mat_pdf_to_png #26

Open MatthieuStigler opened 5 years ago

MatthieuStigler commented 5 years ago

Code already in table_to_pdf:

mat_pdf_to_png <-  function(path) {
  if(!file.exists(path)) stop("File not found")
  if(!str_detect(path, "\\.pdf")) stop("File not pdf?")
  file_out <-
  mat_list_dir(getwd(), pattern = "pdf", recursive = FALSE) %>%
    mutate(path_out = paste("convert -flatten-density 150", full_path,  "-quality 90",  str_replace(full_path, "pdf", "png")))%$%
    map(path_out, system)
}