Filename fix for purityA output

computational-metabolomics · Sep 13, 2024 · 468654b · 468654b
1 parent 20a48a1
commit 468654b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tools/msPurity/purityA.R b/tools/msPurity/purityA.R
@@ -124,7 +124,7 @@ if (!is.null(opt$galaxy_names)) {
 print(pa)
 save(pa, file = file.path(opt$out_dir, "purityA_output.RData"))
 
-pa@puritydf$filename <- sapply(pa@puritydf$fileid, function(x) names(pa@fileList)[as.integer(x)])
+pa@puritydf$filename <- sapply(as.character(pa@puritydf$fileid), function(x) names(pa@fileList)[as.integer(x)])
 
 print(head(pa@puritydf))
 write.table(pa@puritydf, file.path(opt$out_dir, "purityA_output.tsv"), row.names = FALSE, sep = "\t")