From 982f34710e53883393b010001a47190e5cd0534b Mon Sep 17 00:00:00 2001 From: Thomas N Lawson Date: Fri, 13 Sep 2024 10:18:00 +0100 Subject: [PATCH] Update filterFragSpectra.R - update filenames - ensure as character --- tools/msPurity/filterFragSpectra.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/msPurity/filterFragSpectra.R b/tools/msPurity/filterFragSpectra.R index 58adb08..741c9b0 100644 --- a/tools/msPurity/filterFragSpectra.R +++ b/tools/msPurity/filterFragSpectra.R @@ -93,7 +93,7 @@ if (length(pa) > 0) { # select and reorder columns df_fragments <- df_fragments[, c("grpid", "pid", "precursorScanNum", "acquisitionNum", "fileid", "mz", "i", "snr", "ra", "purity_pass_flag", "intensity_pass_flag", "ra_pass_flag", "snr_pass_flag", "pass_flag")] - pa@grped_df$filename <- sapply(pa@grped_df$fileid, function(x) names(pa@fileList)[as.integer(x)]) + pa@grped_df$filename <- sapply(as.character(pa@grped_df$fileid), function(x) names(pa@fileList)[as.integer(x)]) print(head(pa@grped_df)) write.table(pa@grped_df, opt$out_peaklist_prec, row.names = FALSE, sep = "\t")