--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plot_pdf.r	Tue Apr 11 08:02:17 2017 -0400
@@ -0,0 +1,17 @@
+library(ggplot2)
+
+args <- commandArgs(trailingOnly = TRUE)
+print(args)
+
+input = args[1]
+outputdir = args[2]
+setwd(outputdir)
+
+load(input)
+
+print(names(pdfplots))
+
+for(n in names(pdfplots)){
+    print(paste("n:", n))
+    ggsave(pdfplots[[n]], file=n, device="pdf")
+}