Commit 1f0e3c52 authored by Matthias Vallentin's avatar Matthias Vallentin

Remove redundant command line option

parent affef6b9
......@@ -277,8 +277,6 @@ option_list <- list(
help="the image format of the output [%default]"),
make_option(c("-r", "--read"), default="stdin",
help="read CAF profile from file [-]"),
make_option(c("-e", "--extension"), default="png",
help="file extension of output file [%default]"),
make_option(c("-h", "--help"), action="store_true", default=F,
help="display this help and exit")
)
......@@ -306,7 +304,7 @@ if (opt$squeeze)
record <- function(name, fun, ...) {
filename <- paste("plot", name, sep="-")
filename <- paste(filename, opt$extension, sep=".")
filename <- paste(filename, opt$output, sep=".")
write(paste("-- generating", filename), stderr())
ggsave(filename, fun(...), height=10, width=10)
}
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment