Mercurial > repos > lecorguille > camera_annotate

comparison lib.r @ 14:e98ca7f0dcbd draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2761472c8afc41d54cecd54cabd1c5a5713514a3-dirty
author lecorguille
date Fri, 22 Apr 2016 08:36:37 -0400
parents c02d80efba80
children 77a191e37af4
comparison
equal deleted inserted replaced
13:ba7db5b70639 14:e98ca7f0dcbd
4 diffreport_png2pdf <- function(filebase, new_file_path) { 4 diffreport_png2pdf <- function(filebase, new_file_path) {
5 5
6 pdfEicOutput = paste(new_file_path,filebase,"-eic_visible_pdf",sep="") 6 pdfEicOutput = paste(new_file_path,filebase,"-eic_visible_pdf",sep="")
7 pdfBoxOutput = paste(new_file_path,filebase,"-box_visible_pdf",sep="") 7 pdfBoxOutput = paste(new_file_path,filebase,"-box_visible_pdf",sep="")
8 8
9 system(paste("convert ",filebase,"_eic/*.png ",filebase,"_eic.pdf",sep="")) 9 system(paste("gm convert ",filebase,"_eic/*.png ",filebase,"_eic.pdf",sep=""))
10 system(paste("convert ",filebase,"_box/*.png ",filebase,"_box.pdf",sep="")) 10 system(paste("gm convert ",filebase,"_box/*.png ",filebase,"_box.pdf",sep=""))
11 11
12 file.copy(paste(filebase,"_eic.pdf",sep=""), pdfEicOutput) 12 file.copy(paste(filebase,"_eic.pdf",sep=""), pdfEicOutput)
13 file.copy(paste(filebase,"_box.pdf",sep=""), pdfBoxOutput) 13 file.copy(paste(filebase,"_box.pdf",sep=""), pdfBoxOutput)
14 } 14 }
15 15