diff --git a/bin/plot_dtu_results.R b/bin/plot_dtu_results.R index 212e1aa..12850b1 100755 --- a/bin/plot_dtu_results.R +++ b/bin/plot_dtu_results.R @@ -44,7 +44,7 @@ sig_level <- 0.05 genes <- as.character(tdf[which(tdf$p_gene < sig_level),]$gene_id) genes <- unique(genes) -pdf("de_analysis/dtu_plots.pdf") +pdf("dtu_plots.pdf") for(gene in genes){ gdf<-tdf[which(tdf$gene_id==gene),] diff --git a/subworkflows/differential_expression.nf b/subworkflows/differential_expression.nf index 7f85667..ff42950 100644 --- a/subworkflows/differential_expression.nf +++ b/subworkflows/differential_expression.nf @@ -106,6 +106,8 @@ process plotResults { path "de_analysis/results_dtu.pdf", emit: dtu_pdf """ plot_dtu_results.R + # output plots to common analysis output directory + mv dtu_plots.pdf de_analysis/dtu_plots.pdf """ }