Mercurial > repos > davidvanzessen > shm_csr

annotate plot_pdf.r @ 91:f387cc1580c6 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload commit 6f5bdb4189fcc9028c90365d8edf8d1d7c1cf690"
author rhpvorderman
date Wed, 02 Feb 2022 10:57:36 +0000
parents b6f9a640e098
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
81
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
1 library(ggplot2)
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
2
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
3 args <- commandArgs(trailingOnly = TRUE)
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
4 print(args)
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
5
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
6 input = args[1]
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
7 outputdir = args[2]
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
8 setwd(outputdir)
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
9
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
10 load(input)
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
11
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
12 print(names(pdfplots))
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
13
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
14 for(n in names(pdfplots)){
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
15 print(paste("n:", n))
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
16 ggsave(pdfplots[[n]], file=n)
b6f9a640e098 Uploaded
davidvanzessen
parents:
diff changeset
17 }