Mercurial > repos > davidvanzessen > shm_csr
annotate plot_pdf.r @ 43:77a7ac76c7b9 draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Tue, 11 Apr 2017 08:02:17 -0400 |
| parents | |
| children | 716622f5bb4f |
| rev | line source |
|---|---|
| 43 | 1 library(ggplot2) |
| 2 | |
| 3 args <- commandArgs(trailingOnly = TRUE) | |
| 4 print(args) | |
| 5 | |
| 6 input = args[1] | |
| 7 outputdir = args[2] | |
| 8 setwd(outputdir) | |
| 9 | |
| 10 load(input) | |
| 11 | |
| 12 print(names(pdfplots)) | |
| 13 | |
| 14 for(n in names(pdfplots)){ | |
| 15 print(paste("n:", n)) | |
| 16 ggsave(pdfplots[[n]], file=n, device="pdf") | |
| 17 } |