From 468654be4ee49eaef134e41301fc0a9821c373fa Mon Sep 17 00:00:00 2001 From: Thomas N Lawson Date: Fri, 13 Sep 2024 09:57:05 +0100 Subject: [PATCH] Filename fix for purityA output --- tools/msPurity/purityA.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/msPurity/purityA.R b/tools/msPurity/purityA.R index 7fe924b..c4e368b 100644 --- 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")