Mercurial > repos > iuc > phyloseq_plot_richness
diff phyloseq_plot_richness.R @ 1:1ff178d1757e draft
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/phyloseq commit 7df921baa7aa8680421b9440a1cd6eaab1a15ce2
| author | iuc |
|---|---|
| date | Fri, 09 Feb 2024 21:42:16 +0000 |
| parents | 92b82deaaed1 |
| children |
line wrap: on
line diff
--- a/phyloseq_plot_richness.R Thu Mar 03 13:28:55 2022 +0000 +++ b/phyloseq_plot_richness.R Fri Feb 09 21:42:16 2024 +0000 @@ -8,14 +8,12 @@ make_option(c("--output"), action = "store", dest = "output", help = "Output PDF") ) -parser <- OptionParser(usage = "%prog [options] file", option_list = option_list); -args <- parse_args(parser, positional_arguments = TRUE); -opt <- args$options; - -phyloseq_obj <- readRDS(opt$input); - +parser <- OptionParser(usage = "%prog [options] file", option_list = option_list) +args <- parse_args(parser, positional_arguments = TRUE) +opt <- args$options +phyloseq_obj <- readRDS(opt$input) # Start PDF device driver and generate the plot. -dev.new(); -pdf(file = opt$output); -plot_richness(phyloseq_obj, x = "samples", color = "samples"); +dev.new() +pdf(file = opt$output) +plot_richness(phyloseq_obj, x = "samples", color = "samples") dev.off()