diff galaxy/tools/LC-MSMS/XSeekerPreparator.R @ 9:6748b0663fb4 draft

" master branch Updating"
author lain
date Thu, 21 Jan 2021 13:31:18 +0000
parents b7ebb4748e59
children bb9ebd6365ea
line wrap: on
line diff
--- a/galaxy/tools/LC-MSMS/XSeekerPreparator.R	Thu Jan 21 13:02:58 2021 +0000
+++ b/galaxy/tools/LC-MSMS/XSeekerPreparator.R	Thu Jan 21 13:31:18 2021 +0000
@@ -1,7 +1,7 @@
 
 
 TOOL_NAME <- "XSeekerPreparator"
-VERSION <- "1.1.4"
+VERSION <- "1.1.5"
 
 OUTPUT_SPECIFIC_TOOL <- "XSeeker_Galaxy"
 
@@ -644,7 +644,7 @@
         curent_var_meta <- var_meta[row, ]
 
         peak_list <- context$peaks[context$groupidx[[row]], ]
-        sample_peak_list <- peak_list[peak_list[, "sample"] == context$sample_no, , drop=FALSE]
+        sample_peak_list <- peak_list[as.integer(peak_list[, "sample"]) == context$sample_no, , drop=FALSE]
         if (!identical(sample_peak_list, numeric(0)) && !is.null(nrow(sample_peak_list)) && nrow(sample_peak_list) != 0) {
             if (!is.na(int_o <- extract_peak_var(sample_peak_list, "into"))) {
                 dummy_feature$set_int_o(int_o)