diff purityA.R @ 10:9f92f8af2c9a draft

planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit f10386dee95f3b1fbc8d1eeec52d450381ba89c5
author computational-metabolomics
date Fri, 13 Sep 2024 12:23:03 +0000
parents e98ae5c1f4e7
children
line wrap: on
line diff
--- a/purityA.R	Thu Jun 13 11:35:57 2024 +0000
+++ b/purityA.R	Fri Sep 13 12:23:03 2024 +0000
@@ -124,7 +124,7 @@
 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")