Commit 3aad83f1 authored by daniel.eilertz's avatar daniel.eilertz
Browse files

Removed train_path from clause from plot_peaks

parent aaf0fa64
......@@ -4,13 +4,10 @@ plot_peaks <- function(metab, smpl, msd, prm) {
# adds quality scores to labels (more qs in expertmode)
cat('Creating peakoverview.pdf ', file=prm$log_con)
print(' ')
cat(' ')
pdf_file <- "peakoverview.pdf"
if(prm$train_path != ""){
pdf_file <- paste0("peakoverview_", prm$train_path, ".pdf")
}else{
pdf_file <- "peakoverview.pdf"
}
pdf(file = file.path(prm$batchdir, pdf_file), height = 2*prm$nsmpl, width = 5* prm$nmet, family = "Helvetica")
par(mai = c(0.5, 0.5, 0.8, 0.5))
layout(matrix(c(1:(prm$nmet*prm$nsmpl)), prm$nsmpl, prm$nmet, byrow = TRUE)) # initiate subplots
......
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