annotate plot_pdf.r @ 55:6cd12c71c3d3 draft

Uploaded
author davidvanzessen
date Wed, 14 Jun 2017 11:14:00 -0400
parents 716622f5bb4f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
43
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
1 library(ggplot2)
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
2
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
3 args <- commandArgs(trailingOnly = TRUE)
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
4 print(args)
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
5
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
6 input = args[1]
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
7 outputdir = args[2]
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
8 setwd(outputdir)
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
9
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
10 load(input)
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
11
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
12 print(names(pdfplots))
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
13
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
14 for(n in names(pdfplots)){
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
15 print(paste("n:", n))
44
716622f5bb4f Uploaded
davidvanzessen
parents: 43
diff changeset
16 ggsave(pdfplots[[n]], file=n)
43
77a7ac76c7b9 Uploaded
davidvanzessen
parents:
diff changeset
17 }